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CHAPTER 1 
INTRODUCTION 

Under government contract DA-49-129-ENG-542. , Arthur D, Little, Inc,, 
developed a digital computer program which was capable of simulating 
the performances of the electrical components involved in the power 
plants of anti-ballistic missile (ABM) sites When subjected to various 
disturbances, the ABM power plant components must meet very high performance 
standards; consequently, to accurately simulate the power plant, computer 
models not ordinarily used in the design and analysis of power plants 
were developed for some of the various components „ Since the original 
computer program was developed, the design of the power plant has been 
changed requiring modification of the computer program. This work 
discusses the modification of the computer program, instructions for 
using the program, and use of the program in simulating a given power 
plant configuration • 

In order to reduce the repetition of information, and for the sake 
of brevity, all symbols used in this paper are defined in Appendix A. 

The reader will find it helpful to scan the appendices prior to 
reading the text of this paper in order to get a general idea of the 



information contained therein* 
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CHAPTER 2 

DESCRIPTION OF THE POWER PLANT 

The computer program has been modified to be capable of simulating 
an electric power plant which consists of the following: 6 generators; 

9 motor generator (MG) sets, the motors of which are synchronous motors; 

4 induction motors which are started directly from the main bus; 16 distri- 
bution transformers; a commercial power source which supplies power to 
the power plant from a distant point through a transmission line and a 
commercial power interconnection transformer; and a passive RL load 
connected to the main bus. The MG sets supply RL loads either individually 
or in parallel pairs. Three of the MG sets are capable of supplying high 
voltage power supplies which are represented as RL loads. Figure 1 is a 
one-line schematic diagram of the power plant. 

All of the synchronous and induction machines, transformers, and 
RL loads are three-phase components, and are all balanced except for the 
RL load connected directly to the main bus which may be either balanced 
or unbalanced. All RL loads are Y-connected with the neutral grounded. 

The stators of the synchronous machines and induction motors are Y- 
connected with the neutral solidly grounded for induction motors, and 
either solidly grounded or through a reactance for synchronous machines. 

The commercial power source is Y-connected with the neutral grounded. 

The primary windings of the distribution transformers and of the commercial 
power interconnection transformer are A-connected while the secondary 
windings are Y-connected with the neutral grounded. 
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CHAPTER 3 

MODELS USED TO REPRESENT THE INDIVIDUAL COMPONENTS OF THE 

POWER PLANT 



3. 1 Synchronous Machines 



Figures 2 and 3 depict the models that are utilized in the computer 

program to represent synchronous machines in the direct and quadrature 

axis. The models take into consideration the fact that the three windings 

(abc) of a synchronous machine have been transformed by the DQO 

2 

transformation to three DQO windings. Whereas, the real abc stator 

windings rotate with respect to the rotor, the fictitious DQO windings 

are stationary with respect to the rotor. The model contains 14 

parameters - 10 inductances L & , L ga> M ab , M af , M ad , M aq , L f> M fd , Lj, 

and L and 4 resistances R , R r , R, , and R . 
q a f d q 

Synchronous machines are usually described analytically in terms 
of standard conventional parameters which are 11 inductances L^, L^, 

L D1* L Q1» L fl» L dl’ L ql’ L D ’ L D * L Q * and L o and 6 time constants 

T' , T" , T" , Tl , T" , and T" . The equations which relate the 
fo’ do’ qo’ fs’ ds’ qs n 

conventional parameters to the parameters of the model are 



sa 



L P + l q + L o 

3 

L - L n 



M 



ab 



(3.1) 

(3.2) 

(3.3) 



slope of air gap line 



M 



af 



(3.4) 
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Figure 2. Equivalent Circuit for Synchronous Machines in the Direct Axis 
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Figure 3. Equivalent Circuit for Synchronous Machines in the Quadrature Axis 
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= specify arbitrarily 



(3.5) 



M , = 
ad 



(.66)(L d - L D1 )M fd 



M 



af 



(3.6) 



M aq = ( * 66) < L Q - V 



(3.7) 



(I. 5)M 



af 



L - L’ 
D D 



(3.8) 



(1.5)M 



* 1 . 



L - L" 

Q Q 



(3.9) 



L dl + (1 ° 5)(M ad /M fd )M af 
(1.5>(M a£ /M £d ) 2 



(3.10) 



R, 



(. 66 ) 



L + 



«af/ M fd> 2l do' ^ 



M af L f l M fd 
M ad L f 



(3.11) 



R 

q 





T 

qo 




T" . 
qs 



(3.12) 

(3.13) 

(3.14) 



Equations (3,13) and (3,14) are useful only if T" and T 

ds 



qs 



vice T" and T" are specified, 
do qo r 



mus 



In order to obtain C and A g , the open -circuit saturation curve 
t be utilized. On the open-circuit saturation curve, determine 



the current i f where saturation just begins; then using this current, 
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obtain X from 
s 



X 

s 



Vf 



(3.15) 



Next, choose a point such that the corresponding voltage lies above the 

saturation point of the curve. The difference between the field 

current, i^, required to give this voltage utilizing the open-circuit 

saturation curve and the current required using the air-gap line is 

i . Therefore, 
s 



X 



f 



L f (1 £ - V 



(3.16) 



C 



i 

s 




(3.17) 



In summary, the parameters of the model can be determined 

uniquely from the specification of (a) the conventional parameters 

L_ , L A , L a , L-,, L a1 , L' L" , L" , T" , or T" , and T lf or T" ; 

D Q 0 Dl 5 Q1 D D ’ Q 9 do* ds* qo qs* 

(b) the open-circuit saturation characteristics of the machine; 

(c) the stator resistance R and the field resistance R,.; and (d) 

a r 

which may be specified arbitrarily. 



3.2 Induction Motors 



The induction motor is represented by a 5 abcag winding model which 

contains 6 parameters — 4 inductances L , L , M K , and M and 2 

a o i aD act 

resistances R and R The model parameters can be determined from 

3i 3i 

conventional parameters which are usually defined in terms of a transformer 
equivalent circuit such as is shown in Figure 4. The transformer equivalent 
circuit in Figure 4 is for a 5 abcag winding model, whereas standard 
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Figure 4. Transformer Equivalent for Phase-a of an Induction Motor with 
Two aB Rotor Windings 
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conventional parameters are defined by a 6 abca f b’c T winding transformer 

equivalent circuit * The conventional parameters given by the 6 winding 

transformer equivalent circuit are X t , X ,X ,, R , and R Using 

a ic aa aa a a 

the standard conventional parameter plus L^ y the model parameters can 
be determined using the following equations: 



M 1 
aa 



( . 66)X , 

aa 



(3.18) 



M 



ab 



X a£ /m+ (L5)M aa'- L 0 
3 



(3.19) 



L 

a 



L 



M 

a 



X 



— + (1,5)M , - M , 
a) aa ab 



- a -^+(1.5)M , 

a) aa 



/ 3 \ 

T M t • 
2 I aa 



(3.20) 

(3.21) 

(3.22) 



The total moment of inertia of the motor and its mechanical load and 
the number of pole-pairs of the induction motor are also needed for 
the computer program to completely simulate the induction motor. 



3. 3 Regulator-Exciter System for Synchronous Alternators and Synchronous 
Motors 



Only a brief description of the regulator and exciter system used 
for synchronous alternators and synchronous motors will be presented 
here. The purpose of this section is to sufficiently familiarize the 
user of the computer program with the regulator-exciter system so that 
the parameters needed for the program can be determined. 
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The model for the regulator-exciter system of synchronous alternators 

is shown in Figure 5 * The model represents a system with conventional 

regulating features and a saturable current potential transformer 

(SCPT) exciter o The exciter is represented in the model by a current 

source i._ with a source resistance R . The current i~- is determined 
f f m ff 

using the instantaneous terminal phase voltages v , v, , and v , and 

a d c 

stator currents i , i, , and i of the alternator. The source resistance 
a b c 

R^ represents the magnetizing impedance of the exciter transformers, and 
the saturation of these transformers is accounted for in the model by 
means of a simple limiter . 

The voltage regulator is represented in the model by an amplifier, 
a feedback network, and a limiter® The amplifier is defined by its 
gain kg, time delay t3 and output voltage e3 which is limited by E3. 

The feedback network has a time constant of ti+ and a time delay t^ 

The terminal- vo It age feedback and reactive-load share control 
features cf the model are accounted for by a three-phase* full -wave 
rectifier and a quadratic filter with gain k2 and time constants t2 
and t£ . 

To accurately model the system, the parameters needed are E g , 

R m > E 3 > r 3 » t 3 , ti, t 4 , E ref> k2 > 1 2 > 1 2 » and kj 0 All of these 
parameters are not usually specified by the manufacturer; therefore, 
the following method is a suggested way to determine all of the 
parameters . 

E3 and E g should be at least 3 to 4 times the field voltage 

required for open circuit terminal voltage® R should be 20 to 30 times 

m 

the field resistance, k^ should be chosen so that for a reactive-current 
error equal to the rated current it produces a 5 percent rated voltage 



VOLTAGE REGULATOR 
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feedback. Once a convenient value for is determined and recovery 

time for a step load change, T , has been specified, the remaining 
parameters can be obtained from the following equations: 



t4 < (2/3) T 



t£ < 



ti 



256 



t 3 < (0.1)t4 



t 2 - St2 

(ir)E. 



ko = 



ref 



3V 



a 



'ef 



R / 2 



(at full load) 



'ef R r 



(at no load) 



k 3 > (10) 



tii “ 



k 2 toM af ti 



4 2 t 



ef 



(3.23) 

(3.24) 

(3.25) 

(3.26) 

(3.27) 

(3.28) 

(3.29) 

(3.30) 

(3.31) 



The exciter of a synchronous motor is represented by the model in 

Figure 6. The model consists of a voltage excitation source e , 

ex 

a field discharge resistance R^, two silicon controlled rectifiers 

SCR1 and SCR2, and a diode Dl* The parameters Af, k, and R_, must be 

f d 

specified* k is related to e^ through the equation 
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ex 



kV 



il 



(3,32) 
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3.4 Distribution Transformers 



The model used for the distribution transformers is given in Figure 7. 
As has been previously stated, the primary windings of the transformers 
are A-connected, and the secondary windings are Y-connected with the 
neutral grounded. The transformers are represented as ideal transformers 
with a turns ratio, a, equal to that of the actual transformer, plus an 
equivalent leakage-inductance, L^ 2 > ser ^- es with an equivalent winding 
resistance, R^ 2 > P er P^ ase * The model does not take into account 
saturation and magnetizing impedance effects. Each phase of the load 
is represented by a resistance, R^, in series with an inductance, L^. 

All phases of the load are the same. 

The only parameters needed for the model are R^^* L e q2* a f° r 

the transformer, and R^ and for the load. Each of these parameters 
can be easily calculated from either the name plate data of the transformer 
or from readily available load characteristics. 



3.5 Commercial Power System 

The commercial power system is represented by the model shown in 
Figure 8. The model represents the following: (1) a three-phase commercial 
power source with peak phase voltage E^ and the phase angle of phase a 
being equal to x> and the source impedance per phase consisting of an 
inductance, L^, in series with a resistance, R^; (2) a three-phase 
transmission line which is assumed to be balanced and is represented 
per line by an inductance, L^, in series with a resistance, R^; and 
(3) a commercial power interconnection transformer which is identical 
to the model for distribution transformers in Section 3.4. 
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The parameters needed for the program to be able to represent the 

model are L R a , and a for the interconnection transformer: 
eq2 5 eq2’ 

and f° r the overhead transmission line; and L^, R^ > an ^ E^ 2 

for the power source. L t2 , R^, L u2 , R^, and E u2 are equal to L^, 'R r£9 

2 

L^, Ry, and E^ divided by a and a respectively. All of these parameters 
are readily available from published data. In addition to the above 
parameters, the value of x must also be inserted in the program, and 
the method of determining its value is described in Section 5.5. 
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CHAPTER 4 

DESCRIPTION OP THE COMPUTER PROGRAM INCLUDING A SUMMARY 
OP THE CAPABILITIES OF THE PROGRAM 

4.1 Design of the Computer Program 

Generally a power plant is divided into two subsystems. One 
subsystem consists of the prime movers of the generating units and their 
fuel supplies. The second subsystem contains either the rest of the 
power plant or the portion which contains the electrical components. 

The computer program which represents the prime movers and their 
fuel supplies will be called the MAIN program. The computer program 
which represents the rest of the power plant will be called the SUB2 
program. In order to run the SUB2 program, a MAIN program is required. 
The MAIN program has two principal functions — (1) it serves as the 
main routine of the overall power plant, and (2) it contains the model 
for the prime movers of the generating units and their fuel supplies. 

The SUB2 program is simply a large subroutine of the MAIN 
program. It cannot be emphasized enough that the MAIN and SUB2 
programs are completely independent. The two programs are linked 
by the following FORTRAN call statement from the MAIN program; 

CALL SUB2 (XA, SP, TOR, XLOAD, FR, NS). 3 XA represents time (in 
seconds) , and SP is a one-dimensional array which contains the 
mechanical speeds (in rad/sec) of the shafts of the generating 
units. Arrays TOR and XLOAD are one-dimensional arrays that contain 
the electromagnetic torques (in ft-lb) and the electrical loads (in kW) 
of the generators of the generating units. FR is the electrical 
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frequency of the main bus (in Hz), and NS is the number of generating 
units that remain connected to the main bus at a given instant of time. 

The two programs work in the following prescribed manner. When 
the MAIN program calls SUB2, SP and XA are transferred from MAIN to 
SUB 2 . XA should be greater than or equal to SUB 2 time X 6 IF XA is 
larger than X, SUB2 integrates the differential equations of all the 
components of SUB2 to time XA using the same speeds SP for the shafts 
of the generating units throughout the integration. At the end of this 
integration, SUB2 computes TOR, XLOAD, FR and NS and returns to the 
MAIN program. The values of TOR, XLOAD, FR and NS transferred to 
the MAIN program can be used to integrate, in the MAIN program, the 
differential equations of the prime mover and the fuel control model 
to a later time XA. Once the integration is completed a new SP and a 
new time XA can be calculated and the procedure repeated. 

It is very important to realize that any MAIN program which is 
compatible (has similar logic structure) with SUB2 may be used. Two 
very simple MAIN programs have been included in Appendix C with the 
SUB2 program. One of them, SPEED, uses constant speed models for the 
prime movers, and the other one, TORQUE, uses constant developed torque models 
for the prime movers. Again, both of these MAIN programs are very simple. 

An actual simulation of a given power plant configuration would require 
a much more complex model. 

4.2 Description of the SUB2 Program 

The SUB2 program is based on the models described in Chapter 3. 

The program is coded in FORTRAN IV. As was mentioned previously, the 
program for SUB2 is, so to speak, a subroutine of the MAIN program. 
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In itself, the SUB2 program consists of 50 subroutines. As can be seen 
by glancing through Appendix C, the first few lines of each subroutine 
are used to describe the function the subroutine performs. Let it 
suffice to say that each subroutine performs a special function in the 
computer simulation, and all the subroutines combine to form the SUB2 program 
which simulates the whole electrical power plant. 

Used in the SUB2 program are several subscripted FORTRAN arrays. 

These arrays are in common to all of the subroutines with the exception 
of subroutines SETF and SETI which have no common. The arrays contain 
the parameters and variables of the various 
components as well as other variables used by 
the computer program. Parameters of different components are sometimes 
placed in the same array. When this is done, various parts of an array 
are assigned to the various components. For example, in a two-dimensional 
array a given component is assigned to a given column. The various parts 
are assigned using the following ordered arrangement: (1) all generators 

of generating units, (2) all MG sets, (3) all induction motors, (4) all 
distribution transformers, and (5) commercial power system. Throughout 
the rest of the paper the above ordered arrangement will be referred to 
many times. 

The arrays used in the SUB2 program are the following: A(80,35), 

B(99, 35) ,B0(8) ,CD(3, 4) ,D(120) ,EG(50) ,EP(50) ,F(316) ,G(21,35) ,GB(3,4,9) , 

Q ( 316) , VV(21, 9) ,W(6,6,9) ,X,XL(6,10, 35) ,XM(6,10,9) , Y (316) ,Z(6 ,6,35) ,L(134) , 
LG1(50) ,LG2 (50) ,LG3(50) ,LP1(50) ,LP2(50) ,LP3(50) ,TITLE(39) ,HEAD(39) . 

The dimension of most of the arrays is determined by the maximum 
number of components in the power plant to be considered. The arrays 
above require 13,271 computer memory locations. These arrays have been 
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tailored to accommodate the power plant in Figure 1. The second subscript 
of all the two-dimensional arrays, except CD(3,4), and the third subscript 
of all three-dimensional arrays correspond to the position of the respective 
component in the ordered component arrangement <> The elements of the 
more important arrays are defined in Appendix B, In Appendix B the 
subscript I corresponds to the position of a component in the ordered 
arrangement of components; whereas, the subscript J specifies the first 
entry in the Y array of the dependent variables of a component. 

In addition to the information given in Appendix B, array Y contains 
all the dependent variables of the components; and, array F contains 
the corresponding first-time derivative of the dependent variables, 

4 . 3 Capabilities of the Computer Program 

The computer program is quite versatile. Providing the models 
given represent the components to be simulated, the only restrictions 
on the components used in the simulation are as follows: 

(1) There must always be an RL load on the main bus; 

(2) The total number of generating units, MG sets, induc- 
tion motors, and distribution transformers does not 
exceed 35; 

(3) The number of generating units does not exceed 6; 

(4) The number of MG sets does not exceed 9; 

(5) The number of induction motors does not exceed 4; 

and 

(6) Each simulation has at least one power source. 

Any power plant with a lesser number of components than specified above 
may be simulated. 

The computer program has many capabilities. Any generating unit, 

MG set, induction motor or distribution transformer, as well as the 
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commercial power system, can be disconnected from the main bus at a specified 
time; however, once a component is disconnected, it must remain disconnected 
for the remainder of the simulation. Two MG sets may feed the same load in 
parallel as shown in Figure 1 0 When one of these generators is disconnected 
from the common bus, the disconnected MG set idles at no load. All the 
RL loads in Figure 1 can be varied in two ways. Step changes of a 
specified magnitude can occur at any time, or the RL loads can be varied 
sinusoidally with specified frequencies and amplitudes 0 

Single-phase, two-phase, three-phase, and line-to-line faults can 
be introduced on the main bus, the buses of MG sets, the secondaries of 

4 

distribution transformers, and anywhere on the overhead transmission line. 

The faults can be of any duration. The program can also simulate step 
changes of a given magnitude as well as pulse changes of a specified 
magnitude and duration in the voltage of the commercial power source. 

Any of the power plant disturbances given above can occur simultaneously 
during a simulation with the stipulation that only one component can be 
disconnected at a time 0 

In addition to the versatility of the program shown above, the 
computer program calculates the instantaneous values of phase voltages 
and line-to-line voltages of the main bus, buses of each MG set, and 
the secondaries of each distribution transformer* The computer program 
calculates the average three-phase power and the peak reactive power 
per phase at the terminals of each rotating machine connected to the 
main bus, the primary and secondary terminals of the commercial power 
interconnection transformer, and the terminals of each generator of the 
MG sets. Finally, the computer program calculates the percent error 
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of the peaks of all the line-to-line Voltages and the percent error of 
the frequencies with respect to 60 Hz* Needless to say, all of the 
mentioned variables are available for printing or plotting as desired* 
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CHAPTER 5 

OPERATING INSTRUCTIONS FOR THE COMPUTER PROGRAM 

5. 1 Computer Facilities Required 

The program is coded using FORTRAN IV; consequently, the program 
can be run on any computer which utilizes FORTRAN IV and has sufficient 
core memory available. The program has been successfully run on both the 
IBM 360 and CDC 6600 systems. Allowing for the common arrays of SUB2 
already described in Section 4.2, the coding of the program for SUB2 
listed in Appendix C, along with either the main SPEED or main TORQUE 
program requires about 32,768 (decimal) units of computer memory. 

In addition to the standard input tape 5 and output tape 6 used by 
all FORTRAN programs, the SUB2 program requires additional tapes 2 and 
7. This is an important consideration in the preparation of 
the control cards for the program. Tape 2 is utilized by 
subroutine PL0T2 as extra memory where information can be stored in 
binary form. The information stored in tape 7 is identical to the 
information printed out by tape 6; consequently, the information stored 
in tape 7 can be saved and plotted out at a later time. 

5.2 Input Information Required 

Regardless of the simulation, the following parameters and variables 
are required for all computer simulations: The initial time X, C(l) 

to C(15), L(l) to L(7), and L(9) to L(10). Depending on what components 
are present during a given simulation, the following parameters and 
variables must be specified 
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(1) Generators of generating units — A(1,I) to A(17,I), A(20,I) 
to A(33,I), B(14,I), L(I+99), Y(j) to Y(J+10), and F(J+8); 

(2) MG sets - A(1,I) toA(17,I), A(20,I) to A(26,I), A(31,I) to 
A(46,I), A(49,I) to A(61,I), A(68,I) toA(80,I), B(42,I), 

L(I+99), Y (J) to Y (J+18) , and F(J+16) ; 

(3) Induction motors — A(1,I) to A(10,I), A(11,I) to (depending 
on the value of A(10,I)), L(I+99) , and Y(J) to Y(J+6); 

(4) Distribution transformers — A(1,I) to A(12,I), L(I+99), and 
Y (J) to Y (J+2) ; 

(5) Commercial power system — C(35) to C(48) , L(8) , and Y(J) to 
Y (J+2) . 

One of the items required, C(l) , is the integrating time step. In 
the absence of induction motors from the simulation, an integrating step 
of 1 millisecond should be sufficient. However, due to the fact that 
induction motors operating at or near full load have very small time 
constants, the integrating step should probably be reduced to about one- 
third of a millisecond when induction motors are involved in a simulation. 

5.3 Input Format 

The MAIN program requires input information which is described in 
Section 5.6. The data for SUB2 must be placed directly after the data 
for the MAIN program. When the word deck is referred to in this 
section, it refers to the data deck for SUB2. 

The first three cards of the deck contain the information for the 
common array TITLE. This information is contained in format 13A6 and 
is a verbal description of the simulation. The description is printed 
out at the beginning of the output. The next three cards of the deck 
contain the information for the common array HEAD. The information 
HEAD is also a verbal description contained in format 13A6 . HEAD 
provides a method for explaining the information contained per record 
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in the outputs of subroutine TAPE2. The verbal description in HEAD 
appears in the outputs produced by TAPE2 right after TITLE. 

Following the first 6 cards of the deck are cards which can be 
of three general categories. Each category is characterized by one 
of the three letters I, P , or G which is punched in the first column of 
the card. The I-cards contain the input information of Section 5.2 
which goes into the common arrays X, Y, F, L, C, D, A, and B. The 
P-cards contain instructions for the output subroutine PRINT2. The 
G-cards contain instructions for subroutine PL0T2. The I-, P-, and 
G-cards can appear in any order in the data deck; however, the P- and 
G-cards are executed by PRINT2 and PL0T2 in the order they appear. The 
most logical order would be to group the P-cards and G-cards into 
separate groups and to place them in the data deck in that order. 

Let us first consider the I-cards. The format for the I-cards can 
be either for the one-dimensional arrays X, Y, F, L, C, and D, or for 
the two-dimensional arrays A and B. For the one-dimensional arrays, the 
format of an I-card is A1,1X,A1,I3,1X,I3,6E10.4. The first alphanumerical 
character of an I-card is I. The second alphanumerical character 
identifies the array whose values are contained on the card. The 
two integers contained on the card specify the lower and upper values 
of the subscript of the array whose values are contained on the card. 

The values of the array follow the second integer. For example, consider 
an I-card which has the second alphanumerical character equal to C and the 
first and second integers are 1 and 6; then, the card contains the values 
of C(l) through G ( 6 ) . 

The format of an I-card for the two-dimensional array A or B is 
A1,1X,A1,I2,I2,1X,I2,6E10.4. The first integer specifies the value 
of the second subscript of the array A or B. The second and third 
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integers specify the lower and upper values of the first subscript of 
the array A or B whose values are contained on the card. The alpha- 
numerical characters have the same significance as before. Consider the 
example in which the three integers are 7, 10, and 15, and the 
second alphanumerical character is A; then, the I-card contains the 
values for A(10,7) through A(15,7). 

The P-cards contain the information which tells subroutine PRINT2 
the values of the common arrays to be printed out. For the one-dimensional 
arrays, the format of the P-cards is Al, IX, Al, 13, IX, 13 . For the two- 
dimensional arrays, the format is Al ,1X, Al, 12, 12 , IX, 12 • The meaning 
of the information punched on the P-card is similar to that punched 
on the first 10 columns of the I-card. For example, consider the P- 
card that has the two alphanumerical characters P and B and the three 
integers 3, 5, and 22; then, the values of B(5,3) through B(22,3) will 
be printed out by subroutine PRINT2. 

The G-cards perform the same function for subroutine PL0T2 that the 
P-cards perform for subroutine PRINT2 ; the format is exactly the 
same as that of the P-cards . 

The last card of the data deck must be a card with the letter R 
in the first column and the rest of the columns blank. This card 
informs the program that all the data cards have been read in. It is 
important to remember, as stated earlier, that in addition to the data deck, 
described in detail above, the data deck for the MAIN program must precede 
it. 

Any number of I-cards may be used to insert the input data into the 
program. Due to the size of the arrays EP, LP1, LP2, LP3, EG, LG1, 

LG2, and LG3, which contain instructions for subroutines PRINT2 and PL0T2, 
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only 50 P- or G-cards may be present for a given simulation. 

5.4 Output Available 

The parameters that the SUB2 program calculates were given in 
Section 4.3. All of these parameters calculated by the SUB2 program 
are stored in the common arrays and can be obtained as output by using the 
P- and G-cards. The exact location of a particular parameter can be 
determined by utilizing Appendix B. However, it is important to realize 
that subroutine PRINTO produces a printout at the end of each simulation 
which gives the values of the dependent variables and a few other 
variables of SUB2 that must be specified in the initial conditions of 
a simulation. For the initial simulation, approximate initial conditions 
can be calculated by the method described in the following section. 

By conducting a steady-state simulation and then obtaining the output 
from PRINTO, accurate initial conditions are available for subsequent 
simulations ■ 

5 . 5 Method of Obtaining Initial Conditions 

By conducting a steady-state simulation based on approximate initial 
conditions and then obtaining the output produced by PRINTO, as explained 
in the preceding section, accurate initial conditions are available for 
subsequent simulations. This section describes the method for obtaining the 
approximate initial conditions for the first run. The procedure below 
provides the initial conditions for all components connected to the 
main bus including generators of generating units, motors of MG sets, 
induction motors, distribution transformers, and the commercial power 
system. The generators of the MG sets are not described; however, the 
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initial conditions for these components can be obtained using the same 
method used for the generators of generating units « The various buses 
of the MG sets do not have to be in synchronism. 

The power plant is assumed to be balanced. Given the voltage of 
the main bus along with the power and power factor of a component, one 
can readily calculate the maximum amplitude, I, of the phase currents from 
the component to the main bus. Assuming time equal to zero is when the 
phase-a voltage of the main bus is maximum and abc phase sequence, the 
instantaneous phase currents are 



i = I 
a 


COS(j) 


(5.1) 


S - 1 


cos(<J) + y) 


(5.2) 


i = I 
c 


cos(<J> - -y) . 


(5.3) 



This procedure provides values for the instantaneous phase currents 
of generators of generating units, motors of MG sets, induction motors, 
and the commercial power system. For the generator of a generating unit, 
i^ and i equal zero. The remaining parameters needed for the generator 
are calculated using the following procedure: 
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0 = tan 
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(5.4) 
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(2) I - I from 
f s 



I, - I 
f s 



IX cosd) + IX cos (26 + <j>) 
a sa o 



IR sin* 



X £ cos0 
af o 



(5.8) 



where X c = wM _ 

af af 



(5.9) 
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(9) e4 = &2 



(5.16) 



When steps (1) through (5) are used, the values of the dependent variables 
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i., i , and 0 of the motor of an MG set can be obtained. The value 

f d q 

of the field excitation of the motor is provided by Equation (5.13). Using 
the equation 



e 

ex 



kV 



U 



(5,17) 



the value of k can be calculated. The remaining dependent variable of the 
motor, co^, is obtained by dividing the frequency of the main bus by the 
number of pole-pairs of the motor. 

For induction motors the remaining variables i , i_, 0 , and u) 

or 3 o m 

are calculated as follows: 
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(3) i = 0 (since \p = 0) 
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( 5 . 22 ) 



The electromagnetic torque of the motor must equal the mechanical 
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torque of the load of the motor which is given by the equation 

2 



nR , 1 1 
a 



( 5 . 23 ) 



SO) 



The dependent variables of the distribution transformer are the 
secondary currents i^, i^, and i^ which are given by the equations 



The maximum amplitude of the secondary line-to-line voltages can be 
computed by using a phasor diagram and taking into consideration the 
leakage-reactance and winding resistance of the transformer. 

In addition to the values of the dependent variables of the 
commercial power system previously described, the values of the maximum 
amplitude, anc * t ^ le P^ ase an gl e > X> of the voltage source are 

obtained from a phasor diagram which considers the various reactance 
and resistance drops of the interconnection transformer, transmission 
line, and power source. 

As can be seen from this section, getting the initial values of 
the dependent variables and other required initial conditions is, to 
say the least, tedious; however, for a given power plant configuration, 
this only has to be done once. For subsequent simulations the values from 




( 5 . 24 ) 




( 5 . 25 ) 




( 5 . 26 ) 



a steady-state run can be used. 
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In arriving at Equations (5.1) through (5.25), the convention used 
for stator currents and for the polarity of terminal voltages is that 
shown in Figures 2 through 4. This situation necessitates that the 

7T 

range of <j> for alternators be from - y to 0 for leading power factors 

7T 

and from 0 to y for lagging power factors. The range of <f> for motors 
is from -j to tt for leading power factors, and from ir to tj— for lagging 
power factors. 

5.6 Input Information Required for Main SPEED and TORQUE Programs 

In order to run the SUB2 program, it has already been stated that 
a MAIN program is required. The data required for the MAIN program 
should be placed just before the data deck for SUB2 as stated in 
Section 5.3. A data card must be placed in front of the complete 
input data deck (both MAIN and SUB2 data decks) which has, in format 
15, an integer which is equal to the number of simulations in one 
computer run. 

The included main SPEED program requires 2 data cards. The first 
card uses format 13A6 and contains a verbal description of the 
simulation. The second card contains in format 2E10.3 the duration of 
the simulation in seconds and the speed of the shafts of the generating 
units in rad/sec. 

The included main TORQUE program requires two cards plus a card 
for each generating unit. The first card contains a verbal description 
of the simulation in format 13A6 . The second card contains the number 
of generating units, the integrating time steps, and the duration of 
the simulation in seconds in format 15, 2E10.4. The succeeding cards 
for each generating unit have a format of 3E10.4 which contains the 
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initial value of the mechanical speed of the shaft of the generating 

unit in rad/sec, the developed mechanical torque of the shaft in ft-lb, 

2 

and the total inertia of the shaft in lb-ft • 
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CHAPTER 6 

COMPUTER PROGRAM MODIFICATION AND POWER PLANT SIMULATION 

6 . 1 Program Modification 

When the original program was developed, each subroutine was verified 
to operate properly when run by itself, but a complete power plant 
simulation utilizing the full SUB2 program was never attempted* Originally, 
the power plant to be simulated consisted of fewer components than that 
shown in Figure 1 and contained a duplex reactor which was to be used 
to drive the high voltage power supplies* In the modified program of 
Appendix C, a few statements referring to the duplex reactor remain, 
since removing them would have necessitated a larger amount of program 
reorganization and renumbering r These additional FORTRAN statements 
require very little additional computer space. 

In order to make the computer program compatible with the power 
plant of Figure 1, the following modifications were made: (1) The 

dimensions of the common arrays were lengthened; (2) the L array was 
reorganized and the corresponding FORTRAN statements in the various 
subroutines were changed to reflect the reorganization of the L array; 
and (3) a few minor programming errors were corrected. All of the 
FORTRAN statements which were changed have been noted by shifting the 
identification sequence numbers to the left 1 space 0 This should simplify 
future program changes due to subsequent power plant modifications. 

6.2 Development of a Complete Power Plant Simulation 



The final, full power plant simulation was the conclusion of 
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several small simulations. The first step consisted of a simulation 
consisting of the commercial power source supplying a RL load; the next 
simulation consisted of commercial power supplying a RL load and an MG 
set; then commercial power supplying a RL load, an MG set, and an induction 
motor; and, then commercial power supplying a RL load, an MG set, an 
induction motor, and a distribution transformer. This methodical approach 
allows each subroutine to be checked for proper operation before 
complicating the analysis by adding more components. Using this 
method, the minor programming errors were found. 

The next step was to repeat the above simulations, but to use 4 
diesel generators instead of the commercial power source. The reason for using 
4 diesel generators instead of 1 is that the 4 diesels will be used in 
several later simulations. 

After verifying that the basic system performed properly, using 
first a commercial power source and then 4 diesel generators , the 
rest of the components of Figure 1 were added. A simulation was made 
with each source of power — commercial power or 4 diesel generators — 
supplying the full power plant. This step was necessary in order 
to synchronize the commercial power source with the 4 diesel 
generators for parallel operation. After completing the two individual 
simulations, the phase currents of the main bus were plotted for each 
simulation and the phase angle, x> of the commercial power source was 
changed to synchronize the 4 diesel generators with the commercial 
power source. With both the commercial power source and 4 diesel 
generators operating in parallel, a steady-state run of .75 second 
duration was conducted. The initial conditions obtained from this run 
were then used for all subsequent simulations using this particular power 
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plant configuration. Each time a simulation was run it took a short 
period of time for the program to reach steady state since all the 
derivatives are set to zero prior to the start of the simulation. 

6 . 3 Loss of Commercial Power Simulation 

Table 1 contains the input information required in the standard 
input format form specified in Section 5.3 for the SUB2 and main 
SPEED programs. The power plant simulated is identical to that of 
Figure 1 except that it has 4 vice 6 diesel generators, 8 vice 9 MG 
sets, and 15 vice 16 distribution transformers. The RL load is adjusted 
so that the power plant is initially operating at 50 percent of its 
capacity. The diesel generators are operating at 55 percent of their 
capacity and are supplying 50 percent of the power required by the power 
plant. The commercial power source supplies the other 50 percent of 
the required power. The whole power plant is operating at a 0.8 power 
factor. The integrating step throughout the simulation is .0003 seconds. 

At 1 second, a single-phase fault occurs at the primary side of the 
commercial power interconnection transformer; at 1.1 seconds, the 
commercial power system is removed from the main bus. 

Some of the results of the simulation are plotted in Figures 9 and 
10. Figure 9 is the instantaneous three-phase power of a diesel generator 
versus time, and Figure 10 is the percent error of the line-a to line-b 
voltage of the main bus versus time. Additional results could be plotted, 
but these two figures exemplify what can be obtained from the 

program. Again, it must be mentioned, a more complicated and precise 
MAIN program is needed to accurately simulate the power plant 0 
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TABLE 1. INPUT DATA REQUIRED FOR TRANSIENT SIMULATION 



1 

TRANSIENT PIIN FOP THESIS 
4.0 37.69911 

TRAMS IFNT RUN WTTH FAULT ON AMO THEN LOSS OF COM RWR : INITIALLY 

I IS INS C0 MM FPC I AL POWFP SOuPCF AMO 4 GENFRATOPS FEEDING AND RL LOAD 
AMD R WFST . • ROOMS II, ITT, + TV MG SETS, 4 IM, IS DIST TRANS 



FAIJ! T i 


f)M COM PVP AT 


1.0 SFC , 


LCSF CAM i 


DWP AT 1.1 


SFC* 




T 


X 




1 


n.o 












T 


C 




6 


.0003 


Sftft3 . 1 3 


9.1 ?OR 


9.1R0R 


9.1R0R 


.013144 


I 


c 


7 


1 R 


. 0 1 ft 1 44 


.01 ft 144 


3600. 


3600. 


3600 . 


0.0 


I 


c 


ir 


IS 


3600. 


0.0 


0.0 








T 


L 


l 


s 


4.1 


ft.l 


4.1 


15.1 


1.1 




T 


L 


7 


10 


0.0 


1.1 


30.1 


0.0 






I 


Lion 


10S 


1.1 


1.1 


1.1 


1.1 


R.1 


R.l 


T 


Lins 


1 1 1 


R . 1 


R.l 


R. 1 


R. 1 


R.l 


R.l 


I 


L 


1 1 R 


117 


3.1 


3.1 


3.1 


3.1 


4.1 


4. 1 


T 


Lllfi 


1R3 


4.1 


4.1 


4.1 


4.1 


4.1 


4.1 


T 


L 1 R4 


IRQ 


4.1 


4.1 


4.1 


4.1 


4.1 


4. 1 


I 


LUO 


1 30 


4.1 












I 


r 


35 


40 


.00046 


• 0 1 7Rft 


.00035 


.003456 


.000193 


.0173 


T 


c 


41 


46 


?SRR. 


S . 974? 


3600. 


0.0 


3600. 


1.1 


I 


c 


47 


4ft 


1.0 


3600. 










T 


A 


1 1 


6 


. 0 OSft 06 


. 00R4A7 


. 0 0 1 S3 


. R?ftft4 


• OORO 1 


.003754 


T 


A 


1 7 


1? 


9.R36 


.07 


.0006694 


.004667 


. 0R6? 


R.Ofl 


T 


A 


113 


17 


• 0067S 


.11333 


10. 


195.014 


. 000RR05 




I 


A 


1 RO 


RS 


3600. 


0.0 


111.4 


.4 


.017ft 


.06 


T 


A 


1 R6 


31 


.0036364 


40.1R? 


.1 . 


. 03R43 


1.0 


SR. 


I 


A 


1 R? 


33 


soo. 


?000. 










T 


R 


1 1 4 


14 


1 16.SQQ 












I 


Y 


1 


6 


31Q.RS7 


— ?94 . ? 1 3 


— RS , 044 


S6.547 


.7063 


- • 07RR 


T 


V 


7 


1 1 


4. ftQ? 


419.01ft 


— . R7R9 


101 .015 


-.OlRRfi 




T 


F 


9 


Q 


-.0404 












I 


A 


R 1 


6 


.00Sft06 


• 0 0?4ft7 


.O01S3 


. RR834 


. 00?n 1 


.003754 


T 


A 


? 7 


1? 


9.RA6 


.07 


.0006694 


.004667 


• 0R6? 


R.Ofl 


I 


A 


R1 R 


17 


. 0067S 


.11333 


10. 


195.014 


.OOORROS 




I 


A 


RRO 


RS 


3600. 


0.0 


111.4 


.4 


.0173 


.06 


T 


A 


RR6 


31 


.0036364 


40.13? 


.1 


• 03?4ft 


1.0 


SR. 


T 


A 


R3R 


33 


soo. 


RO 0 0 . 










I 


R 


R 1 4 


14 


1 16.S9Q 












T 


Y 


1 R 


17 


319. ?S7 


-394 . ? 1 3 


-?f,044 


56.547 


.7063 


-.07?? 


I 


Y 


1 ft 


RR 


4.R9? 


419.01ft 


— • R7R9 


101.015 


-.OIRRft 




T 


F 


RO 


RO 


-.0404 












T 


A 


R 1 


6 


• 00Sft06 


. OOR437 


.00153 


• ?2ftft4 


• OORO 1 


.003754 


I 


A 


R 7 


1 R 


9.Rft6 


.07 


.0006694 


.004667 


• 0?6R 


R.Ofl 


T 


A 


R 1 3 


17 


.0067S 


. 1 13«3 


10. 


1 95 .014 


.OOORROS 




I 


A 


R?0 


RS 


3600. 


0.0 


111.4 


.4 


.017ft 


.06 



40 



TABLE 1. — CONTINUED 



T 


A 


??F 


11 


.00383*4 


40. 1«? 


T 


A 


11? 


11 


800. 


2000 . 


T 


B 


114 


14 


1 16.899 




I 


Y 


PI 


?F 


310. ?87 


— ? 0 4 . ? 1 3 


T 


Y 


IQ 


11 


4.8Q? 


410.018 


T 


r 


11 


?1 


-.0404 




T 


A 


4 1 


F 


.008808 


• 0 0 2487 


I 


A 


4 7 


1? 


9.?8* 


.07 


T 


A 


411 


17 


.00675 


.11383 


T 


A 


4? 0 


?F 


3800. 


0.0 


T 


A 


4?F 


11 


.0038384 


40.18? 


T 


A 


41? 


11 


800. 


2000. 


T 


F 


414 


14 


1 18.800 




T 


Y 


14 


IQ 


319.257 


-204.213 


I 


Y 


40 


44 


4.80? 


410.018 


I 


F 


4? 


4? 


-.0404 




T 


A 


F 1 


F 


.010878 


.0047} 1 


T 


A 


F 7 


1? 


2.8? 


.07 


T 


A 


C 11 


17 


.01 *?08 


.095377 


I 


A 


F?0 


?F 


3800. 


0.0 


T 


A 


F?F 


?F 


1 8377. 




T 


A 


Ml 


IF 


.00841 


.003785 


I 


A 


S 17 


4? 


1 • 8 ?8 


.07 


T 


A 


F41 


4F 


. 0???88 


. 1 20O30 


T 


A 


F4Q 


F4 


108.447 


. 4 


T 


A 


FF5 


FO 


.1 


.004425 


T 


A 


FFl 


FI 


0.0 




T 


A 


F FR 


71 


888?.l 8 


0 . 


I 


A 


F74 


7Q 


0.0 


3800. 


T 


A 


FP0 


PO 


0.0 




T 


P 


^4? 


4? 


4^.? c :?8 




I 


Y 


4F 


FO 


-31 . 44?0 


12.875 


T 


Y 


FI 


ff 


4.880 


1 ?5 . 864 


I 


Y 


F7 


F? 


-.08343 


-.0011 


T 


Y 


A? 


FI 


. 480?O 




T 


F 


FI 


FI 


.008405 




I 


A 


F 1 


F 


.010^78 


.004711 


T 


A 


F 7 


1? 


? . 8? 


.07 


T 


A 


Ml 


17 


.01 8?08 


.005777 


I 


A 


F?0 


?F 


3800 . 


0.0 


I 


A 


F?F 


?F 


18377. 




T 


A 


Ml 


IF 


.00841 


.003785 


T 


A 


617 


4? 


1 . 8?8 


.07 


T 


A 


F43 


4F 


• 022256 


.120030 


I 


A 


F4Q 


F4 


1 08.447 


.4 


T 


A 


FFF 


FO 


. 1 


.004425 


T 


A 


FFl 


FI 


0.0 




T 


A 


FFF 


71 


5883.1 3 


0. 



.1 


.03248 


1 .0 


-28.044 


56.547 


.7083 


-.3720 


101.015 


-.01328 


.08153 


.22884 


.0028 1 


.0008804 


.004687 


.028? 


10 . 


195.014 


.0003285 


111.4 


.4 


.0178 


. 1 


.03240 


1.0 



-25.044 


56.547 


.7063 


- . ?73Q 


101.015 


-.01228 


.003431 


.171640 


.085854 


.002506 


.008575 


.0527 


3. 


05.888 


.005804 


.012730 


0 . 0 


6.8 


.0028 


.13006 


.005554 


.083268 


.005847 


.0 236 


88.43? 


.0068013 




.0178 


.0603 


.003636 


1 . 


13.2 


234.5 


52.85 


.143 


3600. 


3680. 


0.0 


3600. 



18.767 


70.656 


-.53212 


20.083 


-44.267 


15.185 


4.667 


201.05 


-.01140 



.083431 


.171640 


.005854 


.082506 


.008575 


.0527 


3. 


05.888 


.805804 


.01 2730 


0.0 


6 . 


.0028 


.13006 


.805^54 


.003268 


.005847 


.023* 


80.432 


.0068013 




.0178 


.0603 


.003836 


1 . 


13.2 


234.5 


52.85 


.143 


3600. 



5?. 



-.07?? 



.003754 

2.08 

.08 
52 • 



-,07?2 



• 0 0 6 1 45 
1 .058 

POO. 

. 008048 
.528 

31 .189 

2000 . 

3600. 

0.0 



.05120 

87.838 

9Q.989 



.008148 

1.088 

POO. 

.008048 
• 5?8 

31.180 

2000 . 

3800 . 



41 



TABLE 1. — CONTINUED 



T 


A 


A 74 


79 


T 


A 


680 


80 


T 


R 


64? 


4? 


T 


Y 


64 


69 


T 


Y 


70 


7R 


T 


Y 


76 


81 


1 


Y 


PI 


8? 


T 


F 


00 


PO 


T 


A 


7 1 


6 


T 


A 


7 7 


1? 


I 


A 


71 1 


17 


T 


A 


720 


PR 


T 


A 


7?6 


?6 


I 


A 


7 H 


96 


T 


A 


737 


4P 


T 


A 


741 


46 


T 


A 


749 


R4 


T 


A 


755 


60 


T 


A 


761 


61 


T 


A 


768 


71 


T 


A 


774 


79 


T 


A 


780 


80 


T 


R 


74? 


4? 


T 


Y 


PI 


PR 


T 


Y 


PQ 


94 


T 


Y 


Q 5 


100 


T 


Y1 01 


101 


T 


F 


QQ 


99 


T 


A 


8 1 


6 


T 


A 


8 7 


1 ? 


T 


A 


P]1 


17 


I 


A 


8?0 


PR 


I 


A 


P ?6 


P6 


T 


A 


Pll 


16 


T 


A 


817 


4? 


T 


A 


841 


46 


T 


A 


p 49 


R4 


T 


A 


8R5 


60 


T 


A 


P 8 1 


61 


T 


A 


868 


73 


T 


A 


P 74 


79 


T 


A 


8 P 0 


80 


T 


R 


P4P 


4? 


T 


Y 1 0 1 


107 


T 


Y1 OP 


1 1 7 


T 


Y 1 1 4 


119 


I 


Y1 ?0 


IPO 


T 


F11P 


118 



0.0 

0.0 

45.1526 
-11 .441Q 
4. 6AQ 
- . 06141 
.46029 
# oo6406 
.05Ri9 
.01509 
1 .19187 
1600. 
5610. 
.0000608 
7.9114 
.O0H204 
41 .0-S67 
.11377 
.0000*61 

194.1 

0. 

0 . 

PI • 1 R 9 
-29.71? 

4 . SIR 
-7.1P7Q 
— . 14796 
-. 0 ? 
.0S«7Q 
• 01509 
1 . 191R7 
1600. 
5610. 
.noooPOfl 
7.9114 
.O01HO4 
41 .0667 
.13113 
.0000661 

294.1 

0 . 

0. 

61 . 1 89 
-19.71? 
4. SIP 
-7. 1879 
- . 14796 
-. 0 ? 



1600. 



1 1 .675 
115.664 
-.001 1 



.01607 

.07 

.517114 

0.0 

.0000174 

.07 

.0001 87 

.4 

• 04788 

0.0 

3600. 



-4.851 

115.665 

-.1401 



.01607 

.07 

.S17114 

0.0 

.0000174 

.07 

.000167 

.4 

. 04788 

0.0 

3600. 



-4.PS1 

1?5.*65 

-.1401 



3600 . 



1 P.767 
1Q.0P3 
4.667 



.017476 
. 1 QS94 

3. 

.010115 

.0000171 
.000P779 
91 .004 
. 1 146 
1.3333 

.1P11 

3600. 



24.563 

394.319 

4.411 



.0.17476 
. 1 9594 

3. 

.010115 

.000017? 
. OOOP77Q 
91 .004 
. 1?46 
1.3333 

.1 Pll 
3600. 



74 .563 

194.319 

4.421 



0.0 



70.656 
-44 . 167 

701.05 



.044561 

.048149 

3.14617 

0.0 

.0131 
• 00004P6 
• 0004489 
.0804 
63.75 

.000361 

0.0 



533.05 

-741.377 

131.794 



.04456? 

.048149 

1.14617 

0.0 

.0111 

.0000486 

.0004489 

.0804 

63.75 

.000361 

0.0 



533.05 
-741 .177 
131.794 



1600 . 



-.53111 

15.1P5 

-.01149 



.107495 
.371 P4 
1 3.P61 1 

6 . 

.0001209 

.0006 

. 006465 
500. 

3600. 

3600. 



.00H8P 

147.058 

-.01677 



.107495 
• 371 P4 
13.8611 

6 . 

.0001209 

.0006 

.006465 

500. 

3600. 

3600. 



.001188 

347.058 

-.01677 



0 . 0 



.08129 

87.538 

99.9R9 



.015506 

.11288 

200 . 

.00003QR 

2.65 

10.947 

1000 . 

1600. 

0.0 



.0307? 

23.726 

34.814 



.035506 

• 1 1 2R8 

200 . 

.000039P 

1.65 

20.947 

1000 . 

3600. 

0.0 



.03072 

23.726 

14.814 



42 



TABLE 1. — CONTINUED 



T 


A 9 1 


6 


. 1 00766 


.045077 


.029893 


.076394 


. 1 05447 


T 


A Q 7 


1 3 


.060161 


.07 


. 1 1 5848 


.084047 


.80772 


T 


A <913 


17 


.729858 


.933853 


7. 


7.2487 


8.07725 


T 


A <920 


28 


7600. 


0.0 


.01 34776 


0.0 


6. 


T 


A o?6 


26 


2400. 










I 


A 971 


76 


.0001 07 


.0000456 


.0000309 


.0231 


.0007781 


T 


A 977 


42 


4.65 


.07 


.001456 


.0000851 


.0015 


T 


A <941 


46 


.00254 


.000756 


57.478 


.0018986 




T 


A <949 


54 


44 . 648 


.4 


.1246 


.0607 


.003636 


I 


A 988 


60 


. 1 


.04587 


1 . 


58.5 


150. 


T 


A Q61 


61 


.0000663 










T 


A 968 


73 


294.1 


0.0 


.2884 


.000574 


3600. 


T 


A 074 


79 


0 .0 


7600. 


3600 . 


0.0 


7600. 


T 


A 080 


80 


0 . 










I 


8 942 


42 


58.367 










T 


Y 1 2 1 


126 


-1 8.888 


- 2 . 004 


20.98? 


711.023 


.01727 


T 


Y 1 27 


172 


4.6201 


125.66? 


240.833 


-469.444 


228.61 


T 


Y 1 37 


138 


-1.775 


-.2776 


4.4016 


175.149 


-.00737 


T 


Y 1 79 


1 79 


.2296 










T 


FI 77 


177 


-.01827 










T 


A 1 0 1 


6 


. 100266 


.045077 


. 0 ?9?97 


.076794 


.105447 


T 


A 1 0 7 


13 


.060161 


.07 


.1 15848 


.084047 


.8037? 


T 


A 1 0 1 3 


17 


. 7?985R 


.977853 


3. 


7 . ?4R7 


8.07725 


I 


A1 020 


25 


3600. 


0.0 


.0134776 


0.0 


6. 


T 


A1 026 


?6 


2400. 










I 


A 1 0 0 1 


76 


.000107 


.0000456 


.0000309 


.0231 


.0007781 


T 


A 1 037 


42 


4.65 


.07 


.001456 


.0000851 


.0015 


I 


A 1 047 


46 


.00 254 


.000756 


57.478 


.0018986 




T 


A 1 049 


54 


44.648 


.4 


.1246 


.0607 


.003636 


T 


A1 055 


60 


.1 


.04587 


l . 


58.5 


150. 


T 


A 1 0 6 ] 


61 


.0000667 










T 


A 1 0 68 


73 


294.1 


0.0 


.2884 


.000574 


3600. 


T 


A1 074 


70 


0.0 


3600. 


7600. 


0.0 


3600. 


T 


A1 080 


80 


0 . 










T 


R1 042 


42 


58.763 










T 


Y 1 40 


145 


-18.888 


-2.094 


20.98? 


711.027 


.01323 


T 


Y 1 46 


151 


4.6201 


125.662 


840.873 


-469.444 


228.61 


T 


Y 1 82 


157 


-1 .775 


-.2776 


4.4016 


175.149 


-.00737 


T 


Y 1 88 


158 


.2896 










T 


F 1 56 


156 


-.01887 










I 


All 1 


6 


.028789 


.012897 


. 0 076?7 


.018815 


.120874 


T 


A 1 1 7 


1 2 


.017037 


.07 


.667385 


.024553 


.15287 


T 


A 1 1 1 3 


1 7 


4.05774 


,27?qi4 


7. 


2.8541 


41 .9146 


I 


All 20 


25 


7600. 


0.0 


.009857 


0.0 


6.0 


T 


A1 126 


86 


12900. 










T 


All 71 


76 


.0000308 


.0000136 


.0000086 


.0231 


.0001 109 


T 


All 77 


48 


15.5174 


.07 


.0005065 


.0000246 


.000?! 


I 


A1 147 


46 


.001787 


.000126 


1 78.45 


.0001 705 





.062200 

.25763 

200 . 

.0000667 

2.74 

17.8857 

1 000 . 

3600 • 

0.0 



-.0441 

24.873 
34 . 782 



.082200 

.28783 

200 . 

.0000687 

2.34 

17.8857 

1000 . 

3600. 

0.0 



-.0441 

24.873 

34.88? 



.018866 
• 04676 

200 . 

.0000201 

1.84 



43 



TABLE 1. — CONTINUED 



T 


A] 1 49 


R4 


36.RR9R 


.4 


.134* 


.0603 


.003*36 


90.6353 


T 


M 155 


60 


.1 


. 013^36 


1 . 


3R.5 


500 . o 


1000. 


T 


All *1 


61 


• 0000304 












I 


A1 1 68 


73 


R94. 1 


0. 


.0334 


.0001639 


3600. 


3600. 


T 


A1 1 74 


79 


0. 


3600. 


3*00. 


0.0 


3600. 


o.o 


T 


All R 0 


30 


0. 












T 


R 1 1 4? 


43 


33. 416 












T 


Y1R9 


1 A 4 


-6*.?R 


-7.109 


73.44 


1 RR? .7* 


.0041 1 


-.01396 


T 


Y 1 65 


170 


4.R14R 


1 RR • 664 


RR 1 .904 


-1 643.94 


3?7. 04 


?4.9*3 


I 


Y 1 7 1 


17* 


-.3497 


-.«155 


4. 393 


113.644 


-.00555 


35. 


T 


Y 1 77 


177 


.1377 












T 


F17R 


1 7R 


-.01 14R 












T 


AIR 1 


* 


. 033739 


.01 RR07 


.007637 


. 0 1 8fl 1 R 


.120674 


.018566 


T 


Al? 7 


1 R 


.013033 


.07 


.5*7335 


. 0RAR53 


.15237 


.04676 


T 


A 1 2 1 3 


1 7 


4 . 0R774 


.773014 


3. 


3.8541 


41.9146 




T 


A 1 RRO 


RR 


3600 . 


0.0 


.00O3R7 


0.0 


6.0 


200. 


T 


A1RR* 


7* 


1 R90 0 . 












T 


A1R31 


3* 


. O0OO30R 


.0000136 


.0000036 


.0231 


.0001 109 


.0000201 


I 


A 1 ? 3 7 


4R 


1R.R174 


.07 


.0005065 


.0000346 


.00031 


1 • 54 


T 


A 1 24 3 


4* 


.001 333 


.000136 


170.45 


.0001705 






T 


41 349 


R4 


36.RR9R 


.4 


.1346 


.0603 


.003*36 


90.6858 


T 


A 1 355 


60 


.1 


.01373* 


1 . 


33. R 


500.3 


1000. 


I 


A 1 361 


M 


• 000039R 












T 


A 1 PAR 


73 


R94.1 


0. 


.0334 


.0001639 


3600. 


3600. 


T 


A 1374 


79 


0. 


3600. 


3600. 


0.0 


3600. 


0.0 


I 


AlRRfl 


RO 


0. 












T 


R134R 


43 


3R.41 6 












T 


Y 1 7R 


1 R 3 


-66.35 


-7.139 


73 . 44 


1252.76 


.00411 


-.01396 


I 


Y 1 R4 


1 RQ 


4.R14R 


1 RR . *64 


331 .904 


-1643.94 


8?7.04 


24.9*8 


T 


Y1RO 


19R 


-.3497 


-.31^5 


4.39? 


112.644 


-.00555 


35. 


T 


Y 1 9* 


106 


. 1 377 












T 


F194 


194 


-.01 14R 












T 


A 1 3 1 


6 


• RRR 


. 1 040 


.3389 


.3599 


1 .5 


.25 


T 


A 1 3 7 


1 R 


1 .0 


3*00. 


RROO. 


3.0 


o.o 


0. n 


I 


A 1 3 1 3 


16 


373. 1?R 


10RR. 


376.9911 


1 068.0 






T 


Y1Q7 


ROR 


-1 1 1 .34 


1 04.41 


5.33 


1 02.73 


-101.26 


3.6564 


T 


Y?R 3 


R03 


373.344 












T 


A 1 4 1 


A 


.RRR 


. 1 040 


.3389 


.3599 


1 .5 


.25 


T 


A 1 4 7 


1 R 


1 .0 


3600. 


RROO. 


3.0 


0.0 


0.0 


T 


A 1 4 1 3 


16 


373.1 RR 


1055. 


376.991 1 


1 06R.0 






T 


Y?0 4 


309 


-11 1 • ?4 


1 04.41 


6.33 


102.73 


-101.26 


3.6564 


I 


Y?1 0 


RIO 


373.344 












T 


AIR 1 


6 


.RRR 


.1040 


. 3?RQ 


.2599 


1.5 


.25 


T 


AIR 7 


1R 


1 .0 


3*00. 


RROO. 


3.0 


0.0 


0.0 


I 


A 1 R 1 3 


16 


373. 1RR 


10RR. 


37 * . 991 1 


1 068.0 






T 


Y?1 1 


R 1 6 


-111.34 


104.41 


6.33 


1 0 ? • 73 


-101.26 


3.6564 


I 


Y?1 7 


R 1 7 


773.344 












T 


Al* i 


6 


.RRR 


.1040 


. 3PR9 


.2599 


1 .5 


.25 



44 



TABLE 1. — CONTINUED 



T 


A 1 A 7 12 


1 .0 


7ft00 . 


2ft00 . 


7.0 


0.0 


0.0 


T 


A1 All 1ft 


177.12ft 


lOftft. 


776.9911 


1 06ft . 0 






T 


Y?1« 223 


-1 1 1 .74 


104.41 


ft. «7 


1 0? . 7R 


-101 .76 


3 • 6 ft 6 4 


T 


Y 724 724 


777.744 












T 


A17 1 A 


0.0 


.00002R 


1 4 . ft7ft 


• 1 7ftft 


.000749 


3600.0 


T 


A 1 7 7 1? 


0.0 


7 ft 0 0 . 


7600 . 


0.0 


7600.0 


67ft. R2 


T 


Y 27ft PPl 


1 7 R 0 . 7 


“11 4ft . 7ft 


-677.77 








T 


AIR 1 ft 


0.0 


.00002R 


1 4 . ft7ft 


. 1 7ftft 


.000749 


3600.0 


T 


AIR 7 1? 


0.0 


7ftOO. 


7600. 


0.0 


3600.0 


67ft. ft2 


T 


Y??R 230 


17R0.7 


-I 14R.7ft 


-672.77 








T 


A 1 9 1 A 


O.0 


.000O2R 


1 4.4R7 


.136ft 


.0002716 


3600.0 


T 


A1Q 7 1? 


0.0 


7600. 


7600. 


0.0 


7600.0 


67ft. R7 


T 


Y?71 377 


22R4.7R 


-1494.94 


-7R9.RS 








T 


A?n l 6 


0.0 


.00002R 


1 4 . 4ft 7 


.136ft 


.0002716 


3600.0 


T 


A?n 7 1? 


0.0 


7ft00 . 


7600. 


0.0 


3600.0 


67R. R2 


T 


Y774 27ft 


2PR4.7R 


-1494.94 


-709. Rft 








T 


A21 1 A 


0.0 


.00002 


14.742 


.204ft 


.000407 


3600.0 


T 


A ? 1 7 12 


0.0 


7ft00 . 


7600. 


0.0 


7600.0 


67ft. R2 


T 


Y?77 279 


1S79.R7 


-966.R0 


-ft63 • 0 7 








T 


A?? 1 6 


0.0 


.00002 


14.742 


. 204R 


.000407 


3600.0 


T 


A?? 7 1? 


0.0 


7600. 


7600 . 


0.0 


7600.0 


67ft. P2 


I 


Y?40 342 


1 ft 2 Q . R 7 


-966.R0 


— ftft3. 07 








T 


A ? 7 1 * 


0 . 0 


.00007 


14.699 


.2677 


.000ft?3 


3600.0 


T 


A?? 7 12 


0 . 0 


7600. 


7600. 


0.0 


3600.0 


67ft. R2 


T 


Y347 24ft 


1 1 Rft.42 


-7ftft .42 


-477.99 








T 


A 24 1 ft 


0.0 


.00007 


14.699 


.7637 


• 000R23 


3600.0 


T 


A 24 7 1 2 


0.0 


7600. 


7600. 


0.0 


3600.0 


67ft. R2 


T 


Y24 ft 24R 


1 IRQ. 42 


— 7ftft .47 


-477.99 








T 


A 2ft 1 ft 


o.o 


.00002 


14.742 


.204ft 


.000407 


3600.0 


T 


A2R 7 12 


0.0 


7600. 


760 0. 


0.0 


3600.0 


67P .ft? 


T 


Y?4Q 2ft 1 


1 ft?ft .87 


-966.R0 


-R63.07 








T 


A2ft 1 ft 


0.0 


.0001 r 


14.729 


1 • 7ftft 


.00349 


3600.0 


T 


A?ft 7 12 


0.0 


7600. 


7600. 


0.0 


3600.0 


67R. P2 


T 


Y2ft2 2ft4 


1 7R.44 


-117. 


-6ft. 447 








T 


A 27 1 ft 


0.0 


.0001 R 


14.779 


1 • 7ftft 


.00349 


3600.0 


T 


A 27 7 l 2 


0.0 


7600. 


7600 . 


0.0 


3600.0 


67ft. «7 


I 


Y 2ftft 2ft7 


1 7 R . 44 


-1 17. 


— ftft.447 








T 


A2R 1 ft 


0.0 


.000007 


74. 1R9 


.09R74 


.0001964 


3600.0 


T 


A 2 R 7 1 P 


o.o 


7600. 


7600 . 


o.o 


3600.0 


294.156 


T 


Y 2ft R 2Af) 


1 77ft. ftR 


-Rft? • ?ft 


-ftl 7.42 








T 


A29 1 ft 


0.0 


.000007 


74.1 R9 


. 0 9 R 7 6. 


.0001964 


3600.0 


T 


A2Q 7 12 


0.0 


7600. 


7600. 


0.0 


3600.0 


294.156 


T 


V2ft 1 267 


1 77ft. ftR 


-R62.75 


-ftl 7.42 








T 


Ain i ft 


o.o 


.00001 1 


34.214 


. 1 64ft7 


.0003274 


3600.0 


T 


A 70 7 12 


0.0 


7600. 


7600 . 


0.0 


3600.0 


294.156 


T 


Y2ft4 2ftft 


RRft .4ft 


-ftlft.74 


-70R .70 








T 


A31 1 ft 


0.0 


.oooon 


74.214 


• 1 64ft7 


.0007274 


3600.0 


T 


A .7 1 7 12 


0.0 


7600. 


7600. 


0.0 


3600.0 


294.156 


T 


Y?ft7 2ftQ 


R2S.4ft 


—ft 16.74 


-70ft. 70 








T 


Y270 272 


1717.01 


-1 462.2ft 


14Q.24 









3400 
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APPENDIX A 



DEFINITIONS OF ALGEBRAIC SYMBOLS 



(pages 49 to 56) 
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Symbol 


Description 


Units 


a 


primary to secondary tums-ratio of 
transformer 




c 


constant in formula for equivalent field 
saturation current 


amp/volt 2 -sec 


e 


instantaneous voltage rise 


volt 


e i 


output voltage of three-phase, full -wave 
rectifier in terminal -voltage feedback 
loop of regulator 


volt 


e 2 


output voltage of quadratic filter in 
terminal -voltage feedback loop of regulator 


volt 


e ’2 


derivative of e 2 with respect to time 


volt/sec 


e 3 


output voltage of regulator amplifier 


volt 


e 3 


limit of output voltage of regulator 
amplifier 


volt 


e 4 


output voltage of feedback network in 
regulator 


volt 


e\ 


integral of e 4 from time zero to time t 


volt -sec 


e A* ,e B' ,e C' 


instantaneous voltages of phases A', B' 
and C' of power source in commercial 
power system 


volt 


e ex 


excitation voltage for synchronous motor 


volt 


e f 


instantaneous voltage rise of field winding 


volt 


E f 


value of e^ in balanced steady state 


volt 


e fo 


value of e^ at time zero 


volt 


E ref 


reference voltage of regulator 


volt 


E s 


limit of field voltage of synchronous 
alternator due to saturation of exciter 
transformers 


volt 


% 


maximum amplitude of e^,, eg, and e^ t 


volt 


^2 


maximum amplitude of e^^, e gi 2 and e C'2 


volt 


i 


instantaneous current 


amp 
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Symbol 



Description 



I 



maximum amplitude of phase currents in 
balanced steady state 



I’ maximum amplitude of currents of aB rotor 

windings of induction motor in balanced 
steady state 



i a , i^, i c instantaneous currents of phases a, b and c 

i^, ig, i^ instantaneous currents of phases A, B and C 

iab’i-bc’i. instantaneous currents of windings ab , be 

and ca in A -connected side of transformer 



^AB’^BC’^CA instantaneous currents of windings AB, BC 
and CA in A -connected side of transformer 




current of direct amortisseur winding 

instantaneous current of field winding 

value of ij. in balanced steady state 

field- forcing current of exciter of 
synchronous alternator 



i f ,i« K ,i p instantaneous currents of phases a, b and 
c of RL load of main bus or of load of 
bus of MG set(s) 

i IA ,i TR ,i ir instantaneous currents of phases A, B and 
C of load of distribution transformer 



I moment of inertia 

m 



iq current of quadrature amortisseur winding 

I value of equivalent field saturation current 

in balanced steady state 



i , ig, i instantaneous currents of ago rotor windings 
p of induction motor 

I phasor of current of a rotor winding of 

induction motor 



k gain constant in excitation voltage source 

of synchronous motor 

ki gain constant in reactive-load share control 

of regulator 



Units 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

amp 

volt/amp 
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Symbol 

ka 



k 3 

L 



Description 

gain constant of quadratic filter in 
terminal -voltage feedback loop of regulator 

gain constant of regulator amplifier 

inductance 



L self -inductance of o rotor winding of 

induction motor 



L q zero -phase -sequence inductance 

L self- inductance of stator windings excluding 

saliency effects 

L , self -inductance of rotor windings of 

induction motor 



L, self -inductance of direct amort isseur 

winding 



4 ) 

4 

4 

L dl 



synchronous inductance in direct axis 

transient inductance in direct axis 

subtransient inductance in direct axis 

leakage inductance of direct amortisseur 
winding 



L Dj1 leakage inductance of direct -axis stator 

winding 




equivalent leakage -inductance of transformer 
referred to Y-connected secondary 



L£ self -inductance of field winding 

leakage inductance of field winding 

L. nominal inductance, per phase, of load of 

bus of MF set(s) 



L, nominal inductance, per phase, of load of 

distribution transformer 



L„ ,L„. ,L. nominal inductances of phases a, b and c 
of RL load of main bus 



LI , LI, , LI instantaneous inductances of phases a, b 

and c of RL load of main bus or of load of 
bus of MG set(s) 



Units 



henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 

henry 



Description Units 

instantaneous inductances of phases A, B 

and C of load of distribution transformer henry 

inductance of grounding reactor henry 

self -inductance of quadrature amortisseur 

winding henry 

synchronous inductance in quadrature axis henry 

subtransient inductance in quadrature axis henry 

leakage inductance of quadrature amortisseur 
winding henry 

leakage inductance of quadrature -ax is stator 
winding henry 

maximum contribution from saliency to self- 
inductance of stator windings and to mutual 
inductance between stator windings henry 

per-line inductance of overhead transmission 

line in commercial power system henry 

equal to Lp divided by a 2 henry 

inductance of per -phase impedance of power 

source in commercial power system henry 

equal to Ly divided by a 2 henry 

self -inductance of aB rotor windings of 

induction motor henry 

mutual inductance henry 

maximum mutual inductance between stator 

and rotor windings of induction motor henry 

mutual inductance between stator windings 

excluding saliency effects henry 

mutual inductance between rotor windings of 
induction motor henry 

maximum mutual inductance between stator 

and direct amortisseur windings henry 

maximum mutual inductance between stator 

and field windings henry 
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Symbol 



Description 




maximum mutual inductance between stator 
and quadrature amort isseur windings 



Units 



henry 



M maximum mutual inductance between stator 

aot and aB rotor windings of induction motor 



henry 



M f j mutual inductance between field and direct 

amortisseur windings henry 

n number of pole -pairs 



m number of turns in primary winding of 

transformer 



Ni equal to the ratio of to 

112 number of turns in secondary winding of 

transformer 

N2 equal to the ratio of to 



R 



resistance 



ohm 



R a resistance of stator windings ohm 

R , resistance of rotor windings of induction 

a motor ohm 

R^ resistance of direct amortisseur winding ohm 

R - equivalent winding -re si stance of transformer 

^ referred to Y-connected secondary ohm 

R£ resistance of field winding ohm 

R. nominal resistance, per phase, of load of 

bus of MG set(s) ohm 

R, nominal resistance, per phase, of load of 

distribution transformer ohm 

RJ secondary load-resistance in transformer 

equivalent of induction motor ohm 

R. . ,R» d,Ri p instantaneous resistances of phases A, B 

and C of load of distribution transformer ohm 



Rm 



magnetizing impedance of exciter transformers 
of synchronous alternator ohm 



Description Units 

resistance of quadrature amortisseur winding ohm 

per-line resistance of overhead transmission 

line in commercial power system ohm 

equal to R^, divided by a 2 ohm 

resistance of per-phase impedance of power 

source in commercial power system ohm 

equal to Ry divided by a 2 ohm 

fractional slip of rotor of induction motor sec " 1 

time sec 

time constant of quadratic filter in terminal - 
voltage feedback loop of regulator sec 

time constant of quadratic filter in terminal - 
voltage feedback loop of regulator sec 2 

time delay of regulator amplifier sec 

time constant of feedback network in regulator sec 

time delay of feedback network in regulator sec 

open-circuit time constant of direct amortis- 
seur winding sec 

short-circuit time constant of direct 

amortisseur winding sec 

effective field time constant of loaded 

machine sec 

open-circuit time constant of field winding sec 

short-circuit time constant of field winding sec 

open-circuit time constant of quadrature 
amortisseur winding sec 

short-circuit time constant of quadrature 
amortisseur winding sec 

recovery time for step load change sec 
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Symbol 


Description 


Units 


V 


maximum amplitude of phase terminal voltage 
drops in balanced steady state 


volt 


V V v c 


instantaneous terminal voltage drops to 
ground of phases a, b and c 


volt 


V A- V V C 


instantaneous voltage drops to ground of 
phases A, B and C 


volt 


v ab ,v bc * v ca 


instantaneous terminal voltages of line-a- 
to-line-b, line-b-to-line-c and line-c-to- 
line-a 


volt 


V AB ,V BC ,V CA 


instantaneous voltages'of' line-A-to-line-B, 
line-B-to-line-C and line-C-to-line-A 


volt 


V M 


maximum amplitude of line-to-line terminal 
voltage 


volt 


V N 


instantaneous voltage drop of grounding 
reactor 


volt 


X 


reactance 


ohm 


X a 


synchronous reactance in direct and quadrature 
axes excluding saliency effects 


ohm 


X aa’ 


mutual reactance, based on stator frequency, 
between stator and rotor windings in transformer 
equivalent of induction motor 


ohm 


X aH 


leakage reactance of stator windings in 
transformer equivalent of induction motor 


ohm 


X a'£ 


leakage reactance, based on stator frequency, 
of rotor windings in transformer equivalent 
of induction motor 


ohm 


X aa 


mutual reactance, based on stator frequency, 
between stator and aB rotor windings in 
transformer equivalent of induction motor 


ohm 


X D 


synchronous reactance in direct axis 


ohm 


*Q 


synchronous reactance in quadrature axis 


ohm 


X a 


self -reactance, based on stator frequency, 
of aB rotor windings in transformer equiva- 
lent of induction motor 


ohm 
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Symbol 

Af 



0 



X 

X D’ A Q’ X 0 




T 

<f> 

X 

(i) 



w 



m 



Description 

electrical speed deviation for application 
and removal of field excitation in 
synchronous motor 

electrical angle of axis of field winding, 
or of a rotor winding in induction motor, 
with respect to axis of phase -a stator 
winding, measured in direction of rotor's 
rotation 

value of 0 at time zero 

mechanical angle of rotation of rotor 

instantaneous flux linkages 

instantaneous flux linkages of DQO stator 
windings 

instantaneous flux linkages of field 
winding 

instantaneous flux linkages of quadrature 
amortisseur winding 

value of X^ at which field saturation begins 

instantaneous flux linkages of ago rotor 
windings of induction motor 

electromagnetic torque 

power factor angle 

phase angle of e^, at time zero 

phase angle used in currents of a0 rotor 
windings of induction motor 

electrical speed of rotor, or electrical 
frequency 

mechanical speed of rotor 



Units 

eps 

rad 

rad 

rad 

volt -sec 

volt -sec 

volt -sec 

volt -sec 
volt -sec 

volt -sec 

rad 

rad 

rad 

rad/ sec 
rad/ sec 
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APPENDIX B 

MAJOR FORTRAN ARRAYS USED IN SUB2 PROGRAM 
(pages 58 to 92) 
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A Array (in COMMON, Dimensions: 80 x 35) 

Generators of Generating Units 



Fortran 


Description 


Units 


Algebraic 


A(1,I) 


self -inductance of stator wind- 
ings excluding saliency effects 


henry 


L a 


A(2,I) 


mutual inductance between stator 
windings excluding saliency 
effects 


henry 


M ab 


A(3,I) 


maximum contribution from 
saliency to self-inductance of 
stator windings and to mutual 
inductance between stator 
windings 


henry 


L sa 


A(4,I) 


maximum mutual inductance 
between stator and field 
windings 


henry 


M r 
af 


A(5,I) 


maximum mutual inductance 
between stator and direct 
amortisseur windings 


henry 


M ^ 
ad 


A(6,I) 


maximum mutual inductance 
between stator and quadrature 
amortisseur windings 


henry 


M 

aq 


A (7 ,1) 


self -inductance of field winding 


henry 


L f 


A(8,I) 


mutual inductance between field 
and direct amortisseur windings 


henry 


M fc 


A(9,I) 


self -inductance of direct 
amortisseur winding 


henry 


L d 


A(10,I) 


self- inductance of quadrature 
amortisseur winding 


henry 


L q 


A(ll , I) 


resistance of stator windings 


ohm 


R 

a 


A(12,I) 


resistance of field winding 


ohm 


R f 


A(13,I) 


resistance of direct amortisseur 
winding 


ohm 


R d 


A(14 ,1) 


resistance of quadrature 
amortisseur winding 


ohm 


R 

q 


A(15,I) 


number of pole -pairs 




n 
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Fortran 


Description 


A(16,I) 


value of field flux linkages at 
which field saturation begins 


A(17,I) 


constant in formula for equiva- 
lent field saturation current 


A(18,I) 


5 

A(19,I) 


not used 


A(20,I) 


time of removing generator from 
main bus 


A(21,I) 


inductance of grounding reactor 


A(22,I) 


reference voltage of regulator 


A(23,I) 


gain constant in reactive -load 
share control of regulator 


A(24,I) 


gain constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator 


A(25,I) 


time constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator 


A(26 ,1) 


time constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator 


A(27,I) 


gain constant of regulator 
amplifier 


A(28,I) 


time delay of regulator 
amplifier 


A(29,I) 


time constant of feedback net- 
work in regulator 


A(30,I) 


time delay of feedback network 
in regulator 


A(31,I) 


magnetizing impedance of exciter 
transformers 


A(32,I) 


limit of field voltage due to 
saturation of exciter 
transformers 



Units Algebraic 

volt-sec A„ 

s 

amp/volt 2 -sec 2 C 



sec 

henry 

volt 

volt/amp 



Ln 

E ref 

ki 



sec 



k 2 



sec^ 



sec 



sec 



sec 



ohm 



t ? 2 

t 3 

ti* 

t\ 

R 

m 



volt 
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Fortran 


Description 


Units 


Algebraic 


A(33 , I) 


limit of output voltage of 
regulator amplifier 


volt 


e 3 


A(34 , I) 
$ 

A(35 ,1) 


not used 






A(36,I) 


value of field voltage at time 
zero 


volt 


e fo 


AC37.I) 

A(38,I1 

to 

A(80,I) 


output voltage, at time zero, of 
feedback network in regulator 

not used 


volt 


de' 4 
dt o 



Motor-Generator (MG) Sets 



Motors 



A(1,I) self-inductance of stator wind- 
ings excluding saliency effects henry 

A (2, I) mutual inductance between stator 

windings excluding saliency 
effects henry 

A(3,I) maximum contribution from 

saliency to self -inductance of 

stator windings and to mutual 

inductance between stator 

windings henry 

A (4, 1) maximum mutual inductance 

between stator and field 

windings henry 

A (5, 1) maximum mutual inductance 

between stator and direct 
amortisseur windings henry 

A (6, 1) maximum mutual inductance 

between stator and quadrature 

amortisseur windings henry 

A(7,I) self- inductance of field winding henry 

A (8, I) mutual inductance between field 

and direct amortisseur windings henry 



L 



a 








L 



f 




henry 
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Fortran 


Description 


Units 


Algebraic 


A(9,I) 


self- inductance of direct 
amortisseur winding 


henry 


L d 


A(10, I) 


self -inductance of quadrature 
amortisseur winding 


henry 


L 

q 


A(11,I) 


resistance of stator windings 


ohm 


R 

a 


A(12,I) 


resistance of field winding 


ohm 


R f 


A(13,I) 


resistance of direct amortisseur 
winding 


ohm 


R d 


A(14,I) 


resistance of quadrature 
amortisseur winding 


ohm 


R q 


A(15,I) 


number of pole -pairs 




n 


A(16,I) 


value of field flux linkages at 
which field saturation begins 


volt -sec 


X s 


A(17,I) 


constant in formula for equiva- 
lent field saturation current 


amp/volt 2 -sec 


2 C 


A (18, I) 
5 

A(19,I) 


not used 






A(20,I) 


time of removing MG set from 
main bus 


sec 




A(21 ,1) 


inductance of grounding reactor 


henry 


L n 


A(22,I) 


gain constant in excitation 
voltage source 




k 


A(23,I) 


indicator of source of excitation voltage 
VO, from lines a and b of main bus 
< 0, from lines b and c of main bus 




A(24,I) 


electrical speed deviation for 
application and removal of field 
excitation 


cps 


Af 


A(25,I) 


field discharge resistance 


ohm 


R fd 


A(26 ,1) 


total moment of inertia of MG 
set 


lb-ft 2 


! m 



A(27,I) 

to 

A(30,I) 



not used 
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Fortran 


Description 


Units 


Algebraic 


Generators 






A(31 ,1) 


self -inductance of stator wind- 
ings excluding saliency effects 


henry 


L a 


A(32,I) 


mutual inductance between stator 
windings excluding saliency 
effects 


henry 


M ab 


A(33,I) 


maximum contribution from 
saliency to self -inductance of 
stator windings and to mutual 
inductance between stator 
windings 


henry 


L sa 


A(34,I) 


maximum mutual inductance 
between stator and field 
windings 


henry 


M af 


AC35,I) 


maximum mutual inductance 
between stator and direct 
amortisseur windings 


henry 


M ad 


A(36,I) 


maximum mutual inductance 
between stator and quadrature 
amortisseur windings 


henry 


M 

aq 


A(37,I) 


self- inductance of field winding 


henry 


L f 


A(38,I) 


mutual inductance between field 
and direct amortisseur windings 


henry 


M fd 


A(39,I) 


self- inductance of direct 
amortisseur winding 


henry 


L d 


A(40,I) 


self -inductance of quadrature 
amortisseur winding 


henry 


L 

q 


A(41,I) 


resistance of stator windings 


ohm 


R 

a 


A(42 , 1) 


resistance of field winding 


ohm 


R f 


A (43, 1) 


resistance of direct amortisseur 
winding 


ohm 


R d 


A(44 ,1) 


resistance of quadrature 
amortisseur winding 


ohm 


R 

q 


A(45,I) 


value of field flux linkages at 
which field saturation begins 


volt -sec 


X 

c 
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Fortran 

A(46,I) 

A(47,I) 

§ 

A(48,I) 

A(49,I) 

A(50,I) 

A(51,I) 

A(52,I) 

A(S3,I) 

A(54,I) 

A(55,I) 

A(56,I) 

A(57,I) 

A(58,I) 

A(S9,I) 

A(60,I) 

A(61,I) 

A(62,I) 

to 

A(65,I) 



Description Units Algebraic 

constant in formula for equiva- 
lent field saturation current amp/volt 2 -sec 2 C 

not used 



reference voltage of regulator volt 

gain constant in reactive -load 

share control of regulator volt/amp 

gain constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator 

time constant of quadratic fil- 
ter in terminal -voltage feedback 
loop of regulator sec 



ref 



ki 



k 2 



*2 



time constant of quadratic fil- 
ter in terminal -voltage feedback 

loop of regulator sec 2 t* 2 

gain constant of regulator 

amplifier k 3 

time delay of regulator 

amplifier sec t 3 



time constant of feedback 
network in regulator 


sec 


time delay of feedback network 
in regulator 


sec 


magnetizing impedance of exciter 
transformers 


ohm 


limit of field voltage due to 
saturation of exciter 
transformers 


volt 


limit of output voltage of regu- 
lator amplifier 


volt 



t 4 






R 



m 



E 



s 



E 3 



inductance of grounding reactor 



henry 






not used 
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Fortran 


Description 


Units 


Algebraic 


A(66,I) 


value of field voltage at time 








zero 


volt 


e fo 


A(67,l) 


output voltage, at time zero, of 
feedback network in regulator 


volt 


de' 4 



dt 



o 



Buses of MG Sets 



A(68,I) rated maximum line-to-line 

voltage volt 

A(69,I) indicator for parallel operation of two MG sets 

>/0, MG set is connected to its own bus 
< 0, MG set is connected to bus of preceding MG set 



A (70 , I) 


nominal resistance, per phase, 
of load 


ohm 


A(71,I) 


nominal inductance, per phase, 
of load 


henry 


A(72,I) 


time of disconnecting the 
generator from bus 


sec 


A(73, 1) 


time of commencement of step 
change in load 


sec 


A(74,I) 


fractional step change of load 




A(75,I) 


time of commencement of fault on 
bus 


sec 


A(76,I) 


time of termination of fault on 
bus 


sec 


A(77 , 1) 


describes type of fault on bus 





< 1, no fault 

* 1, single -phase (a) fault 

= 2, two-phase (a and b) fault 

* 3, three-phase (a, b and c) fault 
>/4, line-to-line (a to b) fault 



R 



l 



L 



i 



A(78,I) 



time of commencement of sinusoi- 
dal variation of load sec 



A(79,I) angular frequency of sinusoidal 

variation of load rad/sec 

A(80,I) fractional amplitude of sinusoi- 

dal variation of load 
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Fortran 


Description 


Units 


Algebraic 


Induction Motors 






A(1 ,1) 


self- inductance of stator 
windings 


henry 


L a 


A(2,I) 


mutual inductance between stator 
windings 


henry 


M ab 


A(3,I) 


self -inductance of aB rotor 
windings 


henry 


L 

a 


A(4,I) 


maximum mutual inductance 
between stator and aB rotor 
windings 


henry 


M 

aa 


A(5,I) 


resistance of stator windings 


ohm 


R 

a 


A(6,I) 


resistance of rotor windings 


ohm 


R t 
a' 


A(7,I) 


number of pole -pairs 




n 


A(8,I) 


time of removing motor from main 
bus 


sec 




A(9,I) 


total moment of inertia of motor 
and its mechanical load 


lb -ft 2 


X m 


A(10,I) 


number of entries in table of 
mechanical torque vs. mechanical 
speed 






A(11,I) 


table of mechanical torque vs. 







to mechanical speed A(11,I), A(13,I) 
A(80,I) and so on are the speeds in 

rad/sec; A(12,I), A(14,I) and so 
on are the corresponding torques 
in ft-lb. 



Distribution Transformers 



A(l,l) equivalent winding -resistance of 

transformer referred to Y- 
connected secondary 

A(2,I) equivalent leakage -inductance of 

transformer referred to Y- 
connected secondary 

A(3,I) primary to secondary tums-ratio 

A(4,I) nominal resistance, per phase, 

of load 



ohm 



henry 





R, 



ohm 
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Description 


Units 


Algebraic 


A(5,I) 


nominal inductance, per phase, 
of load 


henry 


l l 


A(6,I) 


time of commencement of step 
change in load 


sec 




A (7, 1) 


fractional step change of load 






A(8,I) 


time of commencement of fault on 
secondary 






A(9,i) 


time of termination of fault on 
secondary 






A(10,I) 


describes type of fault on secondary 
< 1, no fault 

* 1, single-phase (A) fault 
“ 2, two -phase (A and B) fault 
s 3, three-phase (A, B and C) fault 
> 4, line-to-line (A to B) fault 






A(ll »I) 


time of removing transformer 
from main bus 


sec 




A(12,I) 


rated maximum line-to-line 
voltage of secondary 


volt 





A(13,I) 

to not used 

A(19,I) 



A(20,I) used by VMAXTR as initializing 
switch 

A(21,I) 
to 

A(80,I) 



not used 



B Array (in COMMON, Dimensions: 99 x 35) 

Generators of Generating Units 
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Description 


Units 


Algebraic 


B(1,I) 


instantaneous three-phase power 
or ’’average three-phase power" 


KW 


P, P 


B(2,I) 


"peak reactive power per phase" 


KVA 


Q 


B(3,I) 


electromagnetic torque 


ft -lb 


T 


B(4,I) 


percent rotor speed error 






B(5,I) 


electrical speed of rotor 


rad/ sec 


W 


B(6,I) 


instantaneous flux linkages of 
field winding 


volt-sec 


X f 


B(7 ,1) 


instantaneous value of equiva- 
lent field saturation current 


amp 




B(8,I) 


derivative of i with respect 
to A f s 


amp/volt-sec 




B(9,I) 


oM a£ sin0 


ohm 




B(10,I) 


oM af sin(0 - y) 


ohm 




B(11,I) 


uM af sin(0 ♦ 


ohm 




B(12,I) 


output voltage of three-phase, 
full -wave rectifier in terminal - 
voltage feedback loop of 
regulator 


volt 


e i 


B(13,I) 


field forcing current of exciter 


amp 


iff 


B(14,I) 


instantaneous field voltage 


volt 


e f 


B(15,I) 

to 

B(18,I) 


not used 






B(19,I) 


COS0 






B(20,I) 


sin0 






B(21,I) 


cos(0 + y) 






B(22,I) 


sin(0 + 
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Description 


Units 


Algebraic 


B(23,I) 


cos (0 - ^) 






B (24 , 1) 


* f r\ 27r. 

sin(G - y) 






B (25 ,1) 


cos 20 






B(26,I) 


sin20 






B (27 ,1) 


cos (20 + j^) 






B(28,I) 


sin (20 + |2L) 






B(29,I) 


cos (20 - 






B(30,I) 


sin (20 - y-) 






B(31,I) 

to 

B(99 ,1) 


not used 






Motor-Generator (MG) Sets 






Motors 






B (1 , I) 


instantaneous three-phase power 
or "average three-phase power" 


KW 


P, P 


B(2,I) 


"peak reactive power per phase" 


KVA 


Q 


B(3, 1) 


electromagnetic torque 


ft -lb 


T d 


B (4 ,1) 


percent rotor speed error 






B(S,i) 


electrical speed of rotor 


rad/ sec 


(A) 


B(6 ,1) 


instantaneous flux linkages of 
field winding 


volt-sec 


x f 


B(7,I) 


instantaneous value of equiva- 
lent field saturation current 


amp 


*5 


B (8 , 1) 


derivative of i with respect 
to X f s 


amp/volt-sec 




B(9,l) 


uM r sin0 
af 


ohm 




B(10,I) 


' r 5 


ohm 




B(ll ,1) 


uM af sin(0 + 1^-) 


ohm 
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Description 


Units Algebraic 


BC12.I) 


instantaneous field voltage 


volt e^ 


B(13,I) 

to 

B(18,I) 


not used 




B(19,I) 


COS0 




B(20,I) 


sin0 




B(21,I) 


cos(0 ♦ 




B(22,I) 


sin(0 + 




B(23,I) 


1 

© 

(/> 

8 




B (24 ,1) 


sin(0 - 




B(25,I) 


cos20 




B (26 ,1) 


sin20 




B (27 ,1) 


cos (20 + 




B(28,I) 


sin (20 + 




B(29, I) 


cos (20 - ^ — ) 




B(30 ,1) 


sin (20 - 




Generators 




B(31 , I) 


instantaneous three-phase power 
or "average three-phase power" 


KW p, P 


B (32 , I) 


"peak reactive power per phase" 


KVA Q 


B(33,I) 


electromagnetic torque 


ft-lb x 

r 


B(34 ,1) 


instantaneous flux linkages of 
field winding 


volt -sec A^ 


B(35,I) 


instantaneous value of equiva- 
lent field saturation current 


amp i g 


B(36,I) 


derivative of i with respect 
to A f 


amp/volt-sec 


B(37,I) 


aM a £sin0 


ohm 
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Description 


Units 


Algebraic 


B(38,I) 


uM af sin(0 - y) 


ohm 




8(39,1) 


^ a £sin(0 + j~. ) 


ohm 




B(40,I) 


output voltage of three-phase, 
full -wave rectifier in terminal - 
voltage feedback loop of 
regulator 


volt 


e i 


B(41,I) 


field forcing current of exciter 


amp 


x ff 


B(42,I) 


instantaneous field voltage 


volt 


e f 


B(43,I) 

to 

B(48,I) 


not used 






B(49,I) 


COS0 






B (SO ,1) 


sin0 






B(51,I) 


cos(0 ♦ y-) 






B(52,I) 


sin(0 ♦ y-) 






B(53 , I) 


cos(0 - 






B(S4 ,1) 


sin(0 - 






8(55,1) 


cos 20 






B(56,l) 


sin20 






8(57,1) 


cos (20 + 






B(58,I) 


sin (20 «• y-) 






B (59 ,1) 


cos (20 - 






B(60,I) 


sin (20 - ^ — ■) 






Buses 


of MG Sets 






B(61,I) 


instantaneous three-phase power 
or "average three-phase power" 
of load 


KW 


P, P 



KVA 



B (62 ,1) 



"peak reactive power per phase" 
of load 



Q 
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Description 


Units 


Algebraic 


B(63,I) 


consecutive display of B(65,I) 
to B(70,I) 






B(64,I) 


consecutive display of B(71,I) 
to B(73 ,1) 






B(65,I) 


percent error of positive peak 
of B(77,I) 






B(66,I) 


percent error of negative peak 
of B(77,I) 






B(67 ,1) 


percent error of positive peak 
of B(78,I) 






B(68,I) 


percent error of negative peak 
of B(78,I) 






B(69,I) 


percent error of positive peak 
of B(79,I) 






B(70,I) 


percent error of negative peak 
of B(79, I) 






B(71 , 1) 


percent error of frequency of 
B(77,I) 






B(72,I) 


percent error of frequency of 
B(78,I) 






B(73,I) 


percent error of frequency of 
B(79, I) 






B(74,I) 


instantaneous voltage drop to 
ground of phase a 


volt 


v a 


B(75,I) 


instantaneous voltage drop to 
ground of phase b 


volt 


v b 


B(76,I) 


instantaneous voltage drop to 
ground of phase c 


volt 


v c 


B(77 ,1) 


instantaneous line-a-to-line-b 
voltage 


volt 


v ab 


B(78,I) 


instantaneous line-b-to-line-c 
voltage 


volt 


v bc 


B(79, I) 


instantaneous line-c-to-line-a 
voltage 


volt 


v ca 
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Description 


Units 


Algebraic 


B(80,I) 


instantaneous value of resist- 
ance of phase a of load 


ohm 


R ia 


B(81,I) 


instantaneous value of resist- 
ance of phase b of load 


ohm 


R ib 


B(82,I) 


instantaneous value of resist- 
ance of phase c of load 


ohm 


R ic 


B(83,I) 


instantaneous value of induct- 
ance of phase a of load 


henry 


L L 


B(84,I) 


instantaneous value of induct- 
ance of phase b of load 


henry 


L ib 


B(85,I) 


instantaneous value of induct- 
ance of phase c of load 


henry 


4c 


B(86,I) 


instantaneous current of phase a 
of load 


amp 


l ta 


B(87,I) 


instantaneous current of phase b 
of load 


amp 


i tb 


B(88,I) 


instantaneous current of phase c 
of load 


amp 


itc 


B(89,I) 


time derivative of B(86,I) 


amp/sec 




B(90,I) 


time derivative of B(87,I) 


amp/sec 




B(91,I) 


time derivative of B(88,I) 


amp/sec 




B(92,I) 


used as switch by DISC0N in con- 
junction with backstepping to 
integrate to zero phase -a-current 
when generator is being removed 
from bus 






B(93,l) 


same as B(92,I) but for phase-b- 
current 






B(94 ,1) 


same as B(92,I) but for phase -c- 
current 






B(95,I) 


used as switch set by DISC0N if 
B(95,I) is greater than zero, 
phase a of generator has been 
disconnected from bus 






B(96 ,1) 


same as B(95,I) but for phase b 
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B(97,I) same as B(95,I) but for phase c 

B(98,I) set equal to I when generator is 

disconnected from bus 

B(99,I) used by VMAXGB as initializing 
switch 

Induction Motors 



B(i,n 


instantaneous three-phase power 
or "average three-phase power" 


KW 


P, P 


B(2,I) 


"peak reactive power per phase" 


KVA 


Q 


B(3,I) 


electromagnetic torque 


ft -lb 


T d 


B(4 ,1) 


percent rotor slip 






B(5,I) 


electrical speed of rotor 


rad/ sec 


0) 


B(6,I) 


not used 






B(7 ,1) 


set equal to zero 






B(8,I) 


not used 






B(9, I) 
to 

B(11,I) 


set equal to zero 






B(12,I) 


mechanical torque 


ft -lb 


T r 


B(13,I) 

to 

B(18 ,1) 


not used 






B(19,I) 


COS0 






B(20,I) 


sin0 






B(21 ,1) 


cos(0 + 






B(22,I) 


sin(0 ♦ 






B(23,I) 


cos(0 - 






B(24 ,1) 


sin(0 - 
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Description 


Units 


Algebraic 


B(2S,I) 

to 

B(99,I) 


not used 






Distribution Transformers 






B(1,I) 


instantaneous current to phase a 
of main bus 


amp 


*a 


B(2 ,1) 


instantaneous current to phase b 
of main bus 


amp 


*b 


B(3,I) 


instantaneous current to phase c 
of main bus 


amp 


*c 


B(4,I) 


instantaneous phase -A -to -ground 
voltage drop of secondary 


volt 


V A 


B(5,I) 


instantaneous phase -B-to -ground 
voltage drop of secondary 


volt 


V B 


B(6 , 1) 


instantaneous phase -C -to -ground 
voltage drop of secondary 


volt 


V C 


B(7,I) 


instantaneous line-A-to-line-B 
voltage drop of secondary 


volt 


V AB 


B(8,I) 


instantaneous line-B-to-line-C 
voltage drop of secondary 


volt 


V BC 


B(9,I) 


instantaneous line-C-to-line-A 
voltage drop of secondary 


volt 


V CA 


B(10,I) 


instantaneous three-phase power 
or "average three-phase power" 
of load 


KW 


P, P 


B(11,I) 


"peak reactive power per phase" 
of load 


KVA 


Q 


B(12 , 1) 


consecutive display of B(14,I) 
to B(19,I) 






B(13,I) 


consecutive display of B(20,I) 
to B(22 , I) 






B(14 ,1) 


percent error of positive peak 
of B(7 ,1) 






B(15,I) 


percent error of negative peak 
of B (7 , I) 
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B(16,I) 

B(17 , I) 

B(18,I) 

B(19,I) 

B(20,I) 

B(21,I) 

B(22,I) 

B(23,I) 

to 

B(30,I) 

BC31.I) 

B(32,I) 

B(33,I) 

B(34,I) 

B(35,I) 

B(36,I) 

B(37 , I) 
5 

B(38,I) 



Description Units Algebraic 

percent error of positive peak 
of B(8 , 1) 

percent error of negative peak 
of B(8,I) 

percent error of positive peak 
of B(9,I) 

percent error of negative peak 
of B(9, I) 

percent error of frequency of 

B (7 ,1) 

percent error of frequency of 
B(8,I) 

percent error of frequency of 
B(9,I) 



not used 



instantaneous value of resist- 
ance of phase A of load 


ohm 


r la 


instantaneous value of resist- 
ance of phase B of load 


ohm 


\b 


instantaneous value of resist- 
ance of phase C of load 


ohm 


\c 


instantaneous value of induct- 
ance of phase A of load 


henry 


l la 


instantaneous value of induct- 
ance of phase B of load 


henry 


l lb 


instantaneous value of induct- 
ance of phase C of load 


henry 


l lc 



not used 
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B(39,I) 

to coefficients as indicated below 

B(50,I) 

di A di £o di ffK d V 

B(39,I) ♦ B(40,I) B(41,I) ^ ♦ B(42,I) ^ 



di B di o a di j»b d V 

g— = B(43,I) + B(44,I) ♦ B(45,I) «• B(46,I) ^ 



di C di oa di jtb di ic 

= B(47,I) ♦ B(48 ,1) ^ ♦ B(49,I) ^ ♦ B(50,I) ^ 

B (51 ,1) 

to not used 

B(99,I) 
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C Array (in COMMON, Dimension: 50 J 






Fortran 


Description 


Units 


Algebraic 


CCD 


specified integrating time step 


sec 




C(2) 


rated maximum line -to -line 
voltage of main bus 


volt 




C(3) 


nominal resistance of phase a of 
RL load of main bus 


ohm 


R *a 


C (4) 


nominal resistance of phase b of 
RL load of main bus 


ohm 


R *b 


C(S) 


nominal resistance of phase c of 
RL load of main bus 


ohm 


R *c 


C(6) 


nominal inductance of phase a of 
RL load of main bus 


henry 


L *a 


C(7) 


nominal inductance of phase b of 
RL load of main bus 


henry 


L Hb 


C(8) 


nominal inductance of phase c of 
RL load of main bus 


henry 


L *c 


CC9) 


time of commencement of fault on 
main bus 


sec 




C(10) 


time of termination of fault on 
main bus 


sec 




C(ll) 


time of commencement of step 
change in RL load of main bus 


sec 




C(12) 


fractional step change of RL 
load of main bus 






C(13) 


time of commencement of sinusoi- 
dal variation of RL load of main 
bus 


sec 




C(14) 


angular frequency of sinusoidal 
variation of RL load of main bus 


rad/ sec 




C(i5) 


fractional amplitude of sinusoi- 
dal variation of RL load of main 
bus 






C(16) 

to 

C(34) 


not used 
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C (35) 

C(36) 

C(37) 

C(38) 

C(39) 

C(40) 

C(41) 

C(42) 

C(43) 

C(44) 



Description 

equivalent leakage -inductance of 
commercial power interconnection 
transformer referred to Y- 
connected secondary 

equivalent winding -resistance of 
commercial power interconnection 
transformer referred to Y- 
connected secondary 

per-line inductance of overhead 
transmission line in commercial 
power system, referred to Y- 
connected secondary of inter- 
connection transformer 

per-line resistance of overhead 
transmission line in commercial 
power system, referred to Y- 
connected secondary of inter- 
connection transformer 

per -phase inductance of power 
source in commercial power 
system, referred to Y-connected 
secondary of interconnection 
transformer 

per-phase resistance of power 
source in commercial power 
system, referred to Y-connected 
secondary of interconnection 
transformer 

maximum amplitude of phase volt- 
ages of power source in commer- 
cial power system, referred to 
Y-connected secondary of inter- 
connection transformer 

phase angle, at time zero, of 
phase -A' voltage of power source 
in commercial power system 

time of commencement of step 
change in amplitude of phase 
voltages of power source in 
commercial power system 

fractional step change in ampli- 
tude of phase voltages of power 
source in commercial power system 



Units Algebraic 



henry 




ohm 




henry 



L T2 



ohm 



R T2 



henry 1^ 



ohm 



*\j2 



volt 



^2 



rad x 



sec 
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C(4S) 

C (46) 

C (47) 

C (48) 

C(49) 

§ 

C(50) 



Description Units 

time of termination of step 

change in amplitude of phase 

voltages of power source in 

commercial power system sec 

time of removing commercial 

power system from main bus sec 

time of commencement of fault at 
primary side of commercial power 
interconnection transformer sec 

time of termination of fault at 
primary side of commercial power 
interconnection transformer sec 



not used 



Algebraic 
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D Array (in 


C0M40N, Dimension: 120) 






Fortran 


Description 


Units 


Algebraic 


D(l) 


consecutive display of D(7) to 
D(12) 






D(2) 


consecutive display of D(13) to 
D (15) 






D(3) 


instantaneous three-phase power 
or "average three-phase power" 
of load of main bus 


KW 


P> P 


D(4) 


"peak reactive power per phase" 
of load of main bus 


KVA 


Q 


D(5) 


instantaneous three-phase power 
or "average three-phase power" 
of commercial power system 


KW 


P> P 


D(6) 


"peak reactive power per phase" 
of commercial power system 


KVA 


Q 


D(7) 


percent error of positive peak 
of D(38) 






D(8) 


percent error of negative peak 
of D(38) 






D(9) 


percent error of positive peak 
of D(39) 






D(10) 


percent error of negative peak 
of D(39) 






D (11 J 


percent error of positive peak 
of D(40) 






D(12) 


percent error of negative peak 
of D(40) 






D(13) 


percent error of frequency of 
D(38) 






D(14) 


percent error of frequency of 
D(39) 






D(1S) 


percent error of frequency of 
D(40) 






D(16) 


instantaneous resistance of 
phase a of RL load of main bus 


ohm 


R ta 
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Description 


Units 


Algebraic 


D(17) 


instantaneous resistance of 
phase b of RL load of main bus 


ohm 


R *b 


D(18) 


instantaneous resistance of 
phase c of RL load of main bus 


ohm 


R ic 


D(19) 


instantaneous inductance of 
phase a of RL load of main bus 


henry 


L *a 


D(20) 


instantaneous inductance of 
phase b of RL load of main bus 


henry 


L Zb 


D(21) 


instantaneous inductance of 
phase c of RL load of main bus 


henry 


L tc 


D(22) 


instantaneous current of phase a 
of RL load of main bus 


amp 


1 Za 


D(23) 


instantaneous current of phase b 
of RL load of main bus 


amp 


x Zb 


D(24) 


instantaneous current of phase c 
of RL load of main bus 


amp 


1 Zc 


D(25) 


time derivative of D(22) 


amp/ sec 




D (26") 


time derivative of D(23) 


amp/sec 




D(27) 


time derivative of D(24) 


amp/sec 




D(28) 


instantaneous phase -a current of 
total load of main bus 


amp 




D(29) 


instantaneous phase -b current of 
total load of main bus 


amp 




D(30) 


instantaneous phase -c current of 
total load of main bus 


amp 




D(31) 


actual integrating time step 


sec 




D(32) 

to 

D(34) 


not used 






D(35) 


instantaneous phase -a -to -ground 
voltage drop of main bus 


volt 


v a 


D(36) 


instantaneous phase-b-to-ground 
voltage drop of main bus 


volt 


v b 



82 



Fortran 
D (37) 

D (38) 

D(39) 

D(40) 



D(41) 

to 

D(78) 



Description 

instantaneous phase -c -to -ground 
voltage drop of main bus 

instantaneous line-a-to-line-b 
voltage of main bus 

instantaneous line-b-to-line-c 
voltage of main bus 

instantaneous line-c-to-line-a 
voltage of main bus 



not used 



Units Algebraic 



volt 

volt 

volt 

volt 



ab 



be 



ca 



D(79) 



the expression 



amp/sec 



CR r * R .) l. a * R^ . ("ia * R r * R '*) Ha ' < R r * R '*> 



M + L ♦ L, 
r r 1 



M + L + V 2 

XT z 



divided by the expression 



M 



M 



1 - 



M ♦ L + Li M ♦ L + L * 2 
r r 1 r r 

D(80) same as D (79) with subscript a 

replaced by subscript b 

D(8i) same as D(79) with subscript a 

replaced by subscript c 

D (82) (2M r ♦ 2L r + Lj + L' 2 )/[(L r ♦ Lj) 

(L r ♦ L’ 2 ) - M r 2 ] henry* 1 



D(83) 

to not used 

D(95) 



D(96) 



D (97) 



instantaneous voltage of phase A* 
of power source in commercial 
power system, referred to Y- 
connected secondary of intercon- 
nection transformer 

same as D(96) but for phase B’ 



volt 



'A»2 



e B’2 



volt 
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Fortran 

D(98) 

D(99) 

D(100) 

to 

D(11I) 



D(112) 

to 

D(120) 



Description 

same as D(96) but for phase C' 
not used 

coefficients, pertaining to 
commercial power system, as 
indicated below 



Units 

volt 



Algebraic 

e C'2 



di 



a 



di 



la. 



di 



Jib 



di 



Ic 



* D(100) ♦ D(101) g^ ♦ D(102) ^ * D(103) ^ 

di. di di-. di. 

^ - D(104) * D (105 ) g^ ♦ D(106) g^ ♦ D(107) g^ 

di di. di-. di. 

g^£ - D(108) ♦ D(109) g^ + D(110) g^ ♦ D(lll) g^ 



not used 
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G Array (in COM3N, Dimensions: 21 x 35) 



Fortran 


Description 


Units 


Algebraic 


G(1,I) 


time two integrating time steps 
back 


sec 




G (2 , I) 


time one integrating time step 
back 


sec 




G (3 ,1) 


present time 


sec 


t 


G(4,I) 


value of B(7 , I) for distribution 
transformers at time G(1,I) 


volt 




G(5,I) 


value of B(7,I) for distribution 
transformers at time G(2,I) 


volt 




GC6,I) 


value of B(7,I) for distribution 
transformers at time G(3,I) 


volt 


V AB 


G(7,I) 


value of B(8,I) for distribution 
transformers at time G(1,I) 


volt 




G(8,I) 


value of B(8,I) for distribution 
transformers at time G(2,I) 


volt 




G(9,I) 


value of B(8,I) for distribution 
transformers at time G(3,i) 


volt 


V BC 


G(10,I) 


value of B(9,I) for distribution 
transformers at time G(1,I) 


volt 




G (11 , I) 


value of B(9,I) for distribution 
transformers at time G(2,I) 


volt 




G (12 , I) 


value of B(9,I) for distribution 
transformers at time G (3 , 1) 


volt 


V CA 


G(13,I) 


time of most recent zero -crossing 
of B(7,I) for distribution 
transformers 


sec 




G(14,I) 


time of most recent zero -crossing 
of B(8,l) for distribution 
transformers 


sec 




G(15,I) 


time of most recent zero -crossing 
of B(9,I) for distribution 
transformers 


sec 




G(16,I) 


used by VMAXTR as switch in com- 
putation of peaks of B(7,I) for 
distribution transformers 
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Fortran 

.1 m i ii i.— 

G (17 ,1) 
G(18,I) 
G(19,I) 

G(20,I) 
G (21 ,1) 



Description 

same as G (16 , I) but for B(8,I) 
for distribution transformers 

same as G(16,I) but for B(9,I) 
for distribution transformers 

used by VMAXTR as switch to skip 
computation of peaks and of fre- 
quency of B(7,I) for distribution 
transformers during a two -phase 
(A and B) or a three-phase (A, B 
and C) or a line -to -line (A to B) 
fault on secondary of distribu- 
tion transformers 

used by VMAXTR as switch to skip 
computation of peaks and of fre- 
quency of B(8,I) for distribution 
transformers during a three-phase 
(A, B and C) fault on secondary 
of distribution transformers 

same as G(20,I) but for B(9,I) 
for distribution transformers 



Units Algebraic 
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L Array (in COMMON, Dimension: 134) 


Fortran 


Description 


L[l) 


number of generating units 


L(2) 


number of motor-generator sets 


L(3) 


number of induction motors 


L(4) 


number of distribution 
transformers 


L(5) 


if L(5) 0, the commercial power 
system is connected to the power 
plant; otherwise, it is not 


L(6) 


not used 


1(7) 


describe type of fault on main bus 
<1, no fault 

*1, single phase (a) fault 
*2, two-phase (a and b) fault 
*3, three-phase (a, b and c) fault 
*4, line-to-line (a to b) fault 


L(8) 


describe type of fault at 
primary side of commercial power 
interconnection transformer 


L(9) 


frequency of output from PRINT2 
in terms of integrating steps 


L (10) 


frequency of output from PL0T2 
in terms of integrating steps 


L (11 ) 

to 

L(2S) 


used by SAT and SATEF for field 
saturation effects of synchronous 
machines connected to main bus 
■1, corresponding machine is not 
saturated 

=2, corresponding machine is 
saturated 


L(26) 

to 

L(30) 


not used 


L (31 ) 


total number of dependent 
variables 


L(32) 


used by SUB2 as switch to call 
INITIA 



Units Algebraic 
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Fortran 
L (33) 

L(34) 

L (35) 

L (36) 

L(37) 

L (38) 
L(39) 

L (40) 

L(41) 

L (4 2) 

L (43) 

L (44 ) 

L(45) 

L(46) 



Description 



Units 



used as switch to bypass YPRIM2; 
switch is set in SUB2 

used as switch for calling 
PRINT2 from SUB2 

used as switch for calling PL0T2 
from SUB2 

used as switch in SUB2 to back- 
step and integrate to zero 
current if necessary, when a 
component is being removed from 
main bus or a generator from the 
buses of the MG sets: switch is 
set in SWITCH and DISC0N 

used as switch in SWITCH in con- 
junction with backstepping to 
integrate to zero phase -a -current 
when a component is being removed 
from the main bus 

same as L (37) but for phase -b- 
current 

same as L(37) but for phase-c- 
current 

used as switch set by SWITCH: if 
L (40) is greater than zero, phase 
a of component being removed from 
main bus has been disconnected 
from main bus 

same as L (40) but for phase b 

same as L (40) but for phase c 

identifies component being 
removed from main bus 

number of records written by 
PL0T2 

number of words per record 
written by PL0T2 

used by VMAX as initializing 
switch 



Algebraic 
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Fortran Description Units 



L (47) 


not used 


L (48) 


not used 


L(49) 


number of input data cards with 
instructions for PL0T2 


L(50) 


number of input data cards with 
instructions for PRINT2 


L(51) 

to 

L(86) 


specify first entry in Y Array 
of dependent variables of each 
component 


L (87) 
to 
L(95) 


used by SATG and SATEFG for 
field saturation effects of gen- 
erators of MG sets 


L(96) 
to 
L (99) 


not used 


L(100) 

to 

L(134) 


specify type of components 
=1, for generating units 
=2, for motor-generator sets 



*3, for induction motors 

-4, for distribution transformers 



Algebraic 
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Y Array (in COMMON, Dimension: 316) 



Generators of Generating Units 



Fortran 


Description 


Units 


Algebraic 


Y(J) 


instantaneous current of phase -a 
stator winding 


amp 


i 

a 


Y(J+1) 


instantaneous current of phase -b 
stator winding 


amp 


i b 


Y(J+2) 


instantaneous current of phase -c 
stator winding 


amp 


4 c 


Y(J + 3) 


instantaneous current of field 
winding 


amp 


if 


Y(J + 4) 


current of direct amortisseur 
winding 


amp 


id 


Y(J + 5) 


current of quadrature amortisseur 
winding 


amp 


\ 


Y(J+6J 


electrical angle of axis of field 
winding with respect to axis of 
phase -a stator winding, measured 
in direction of rotor's rotation 


rad 


0 


Y(J+7) 


output voltage of regulator 
amplifier 


volt 


e 3 


Y(J+8) 


time integral , from time 0 to 
time t, of output voltage of 
feedback network in regulator 


volt-sec 


e *4 


Y(J+9) 


output voltage of quadratic 
filter in terminal -voltage feed- 
back loop of regulator 


volt 


e 2 


Y(J+10) 


time derivative of Y(J+9) 


volt/sec 


0 f 
6 2 


Motor-Generator Sets 






Motors 






Y(J) 


instantaneous current of phase -a 
stator winding 


amp 


ia 


Y(J*1) 


instantaneous current of phase -b 
stator winding 


amp 


ib 
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Fortran 


Description 


Units 


Algebraic 


Y(J+2) 


instantaneous current of phase -c 
stator winding 


amp 


*c 


Y (J+3) 


instantaneous current of field 
winding 


amp 




Y(J+4) 


current of direct amortisseur 
winding 


amp 


id 


Y(J*5) 


current of quadrature amortisseur 
winding 


amp 


i 

q 


Y(J + 6) 


electrical angle of axis of field 
winding with respect to axis of 
phase -a stator winding, measured 
in direction of rotor's rotation 


rad 


0 


Y(J*7) 


mechanical speed of rotor 


rad/ sec 


w m 


Generators 






Y(J+8) 


instantaneous current of phase -a 
stator winding 


amp 


i a 


Y(J*9) 


instantaneous current of phase -b 
stator winding 


amp 


ib 


Y(J+10) 


instantaneous current of phase -c 
stator winding 


amp 


ic 


Y(J+11) 


instantaneous current of field 
winding 


amp 


if 


Y(J+12) 


current of direct amortisseur 
winding 


amp 


id 


Y(J+13) 


current of quadrature amortisseur 
winding 


amp 


\ 


Y(JH4) 


electrical angle of axis of field 
winding with respect to axis of 
phase -a stator winding, measured 
in direction of rotor's rotation 


rad 


0 


Y(J+15) 


output voltage of regulator 
amplifier 


volt 


e 3 


Y (J+16) 


time integral, from time 0 to 
time t, of output voltage of 
feedback network in regulator 


volt -sec 


e 4 
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Fortran Description 

Y(J+17) output voltage from quadratic 

filter in terminal -voltage feed- 
back loop of regulator 

Y(J+18) time derivative of Y(J+17) 



Units Algebraic 

volt e 2 

volt/ sec e ' 2 



Induction Motors 



Y(J) instantaneous current of phase -a 

stator winding amp 

Y(J+1) instantaneous current of phase -b 

stator winding amp 

Y(J+2) instantaneous current of phase -c 

stator winding amp 

Y(J+3) instantaneous current of a rotor 

winding amp 

Y(J+4) instantaneous current of 6 rotor 

winding amp 



Y(J+5) electrical angle of axis of a 

rotor winding with respect to 
axis of phase -a stator winding, 
measured in direction of rotor's 
rotation rad 

Y(J + 6) mechanical speed of rotor rad/ sec 



i 



a 



*b 



a 



0 



tUL 



m 



Distribution Transformers 



Y(J) instantaneous current of phase -A 

secondary winding 

Y(J+1) instantaneous current of phase -B 

secondary winding 

Y(J+2) instantaneous current of phase -C 

secondary winding 



amp 

amp 

amp 



Conroercial Power System 

Y(J) instantaneous current to phase a 

of main bus 

Y(J*1) instantaneous current to phase b 

of main bus 



amp 

amp 



A A 

X B 

X C 



i 

a 



i 



b 
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Fortran 


Description 


Units 


Algebraic 


Y(J+2) 


instantaneous current to phase c 
of main bus 


amp 


i 

c 



93 



APPENDIX C 

FORTRAN LISTING OF MAIN SPEED AND MAIN TORQUE AND SUB2 PROGRAMS 



(pages 94 to 176) 



r> o 
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SUBROUTINE SPEEO 

MAIN PROGRAM WITH CONSTANT SPEEO MODELS FOR PRIME MOVERS OF GENE- S 0001 

RATING UNITS. S 0002 

COMMON DSUB2 S 0003 

DIMENSION DSUB2( 13271) S 0004 

DIMENSION SP(10).TOR(10).XLOAD(10)*TITLE(13) S 0005 

995 FORMAT (15) S 0006 

996 FORMAT ( 13A6) S 0007 

997 FORMAT (1H1.47HINPUT DATA FOR PRIME MOVERS OF GENERATING UNI TS//1H S 0008 

1.13A6) S 0009 

998 FORMAT (2E1 0 • 3) S 0010 

999 FORMAT ( 1H0.6HSPEED=»F8.4/1H • 1 6HDURAT ION OF RUN-.F8.4.4H SEC) S 0011 

READ (5»995) N S 0012 

2 READ (5.996) TITLE S 0013 

WRITE (6.997) TITLE S 0014 

READ (5 .998 ) XT.SPE S 0015 

WRITE (6.999) SPE.XT S 0016 

CALL INPUT2 S 0017 

DO 1 1=1.10 S 0018 

1 SP ( I ) *SPE S 0019 

X=0.0 S 0020 

CALL SUB2(X. SP.TOR.XLOAD.FR. NT) S 0021 

CALL PRINT2 S 0022 

X*XT S 0023 

CALL SUB2(X. SP.TOR.XLOAD.FR, NT) S 0024 

CALL PRINT2 S 0025 

CALL PRINTO S 0026 

CALL TAPE2 S 0027 

N-N-l S 0028 

IF (N)3,3,2 S 0029 

3 CALL EXIT S 0030 

END S 0031 



o o o o o 
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SUBROUTINE TORQUE 





MAIN PROGRAM WITH CONSTANT TORQUE MODELS 


FOR PRIME MOVERS 


OF 


GENE- 


T 


0001 




RATING UNITS. 








T 


0002 




SUBROUTINES RNGKTA AND YPRIME INTEGRATE 


THE EQUATIONS OF 


MOTION OF 


T 


0003 




THE SHAFTS OF THE GENERATING UNITS USING 


CONSTANT MECHANICAL 


TOR- 


T 


0004 




QUE. THE DEPENDENT VARIABLES ARE THE SHAFT SPEEDS. 






T 


0005 




COMMON DSUB2 








T 


0006 




DIMENSION DSUB2 ( 13271 ) 






T 


0007 




COMMON X.Y.F.Q.A.B.C.L 








T 


0008 




DIMENSION Y(10>.F(10).Q<10).A(10).B<20>, 


C ( 2 ) *L ( 2 ) 






T 


0009 




DIMENSION SP(IO) .TORI 10) .XLOADUO) .TITLE (13) 






T 


0010 


100 


format ( is ) 








T 


0011 


101 


F0RMAT(13A6> 








T 


0012 


102 


FORMAT (I5.2E10.4) 








T 


0013 


103 


FORMAT (3E10. 4) 








T 


0014 


1 04 


FORMAT (1H1.47HINPUT DATA FOR PRIME MOVERS OF GENERATING 


UNITS//1H 


T 


0015 




1 ♦ 1 3 A6 ) 








T 


0016 


105 


FORMAT (1H0*7X*5HSPEED*10X*6HT ORQUE *10X*7HINERTIA/) 






T 


0017 


106 


FORMAT (3(3X*E13.6) ) 








T 


0018 


107 


FORMAT ( 1 HO ♦ 1 7HINTEGRAT ING STEP= ♦ F7 .4 * 4H 


SEC/1H . 1 6HDURAT ION 


OF RUN 


T 


0019 




1=,F8.4,4H SEC) 








T 


0020 




READ (5*100) N 








T 


0021 


1 


READ (5*101) TITLE 








T 


0022 




WRITE (6*104) TITLE 








T 


0023 




READ (5*102) L(l) *C(1) *C(2) 








T 


0024 




LI =L ( 1 ) 








T 


0025 




DO 2 1=1 ♦LI 








T 


0026 


2 


READ (5*103) Y(I)*B(I)*A(I) 








T 


0027 




WRITE (6*105) 








T 


0028 




DO 3 1=1 ♦ L 1 








T 


0029 


3 


WRITE (6*106) Y(I)*B(I)*A(I) 








T 


0030 




WRITE (6*107) C ( 1 ) ♦ C ( 2 ) 








T 


0031 




CALL INPUT2 








T 


0032 




DO 4 1 3 1 ♦ L 1 








T 


0033 


4 


SP(I)=Y(I) 








T 


0034 




X = 0.0 








T 


0035 




L ( 2 ) =0 








T 


0036 




CALL SUB2(X*SP*TOR*XLOAD*FR*NT) 








T 


0037 




L ( 1 ) =NT 








T 


0038 




CALL PRINT2 








T 


0039 


5 


IF ( X-C (2 ) ) 6*10*10 








T 


0040 


6 


IF (X— C (2) ♦C ( 1 ) ) 8*7*7 








T 


0041 


7 


C(1)=C(2)-X 








T 


0042 




I DX=2 








T 


0043 




GO TO 9 








r 


0044 


8 


IDX = 1 








T 


0045 


9 


CALL RNGKTA 








T 


0046 




GO TO (5*10) ♦ IDX 








T 


0047 


10 


LI =L ( 1 ) 








T 


0048 




DO 11 1=1 ♦ LI 








T 


0049 


11 


SP ( I ) =Y ( I ) 








T 


0050 




CALL SUB2(X*SP*TOR*XLOAD*FR*NT) 








T 


0051 




CALL PRINT2 








T 


0052 




CALL PRINTO 








T 


0053 




CALL TAPE2 








T 


0054 




N=N- 1 








T 


0055 




I F ( N ) 12*12*1 








T 


0056 


12 


CALL EXIT 








T 


0057 




END 








T 


0058 



r> o 
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SUBROUTINE RN6KTA R 0000 
INTEGRATION SCHEME FOR SHAFT SPEEDS OF GENERATING UNITS— GILL PRO- R 0001 
CEOURE OF THE FOURTH ORDER RUNGE-KUTTA METHOD. R 0002 



COMMON DSUB2 
DIMENSION DSUB2 ( 1 3271 ) 

COMMON X.Y*F*Q»A.B.C*L 

DIMENSION Y ( 1 0 ) tF (10) *Q ( 10 ) * A ( 1 0 ) ♦ 

N-L(l) 

IF (L ( 2) ) A ♦ A ♦ 1 
A L ( 2 ) = 1 0 
DO 3 1=1 .N 
3 Q { I ) =0 • 0 
1 H=C ( 1 ) 

HH=.5*H 
CALL YPRIME 
DO 5 1 = 1 • N 
S=F<I)*H 
T = .5MS-2.*Q(I> ) 

Y ( I ) =Y ( I ) ♦ T 

5 Q ( I ) =Q ( I)0.*T-.5*S 
X=X ♦HH 

CALL YPRIME 
DO 6 I =1 tN 
S=F ( I ) *H 

T=.29289322*(S-Q(I> ) 

Y(I)=Y(I)4T 

6 Q(I)=Q<I)0.*T -• 29289322 # S 
CALL YPRIME 

DO 7 1 = 1 .N 
S=F ( I ) *H 

T=1.7071067*(S-0(I) ) 

Y ( I ) =Y ( I ) ♦T 

7 Q(I)=Q(I)43.*T-1.707106*S 
X=X ♦HH 

CALL YPRIME 
DO 8 1=1. N 
S=F(I)«H 

T = { S-2 • *0 ( I ) )/6. 

Y { I ) =Y ( I ) ♦T 

8 Q(I)=Q<I>0.*T-.5*S 
RETURN 

END 



R 0003 
R 000A 
R 0005 

20) .C (2) »L (2) R 0006 

R 0007 
R 0008 
R 0009 
R 0010 
R 0011 
R 0012 
R 0013 
R 00 1 A 
R 0015 
R 0016 
R 0017 
R 0018 
R 0019 
R 0020 
R 0021 
R 0022 
R 0023 
R 002A 
R 0025 
R 0026 
R 0027 
R 0028 
R 0029 
R 0030 
R 0031 
R 0032 
R 0033 
R 003A 
R 0035 
R 0036 
R 0037 
R 0038 
R 0039 
R 00A0 
R 00A 1 
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SUBROUTINE YPRIHE Y 0000 

c evaluation or derivatives of shaft speeds OF GENERATING UNITS. Y 0001 

COMMON DSUB2 Y 0002 

DIMENSION DSUB2 (13271) Y 0003 

COMMON X ♦ Y »F ,Q ♦ A ,B »C »L Y 0004 

DIMENSION Y(10).F(10)»Q(10)»A(10)»B(20)»C(2).L<2) Y 0005 

DIMENSION SP<10> .TOR(IO) .XLOAD(IO) Y 0006 

L1=L ( 1 ) Y 0007 

DO 10 1=1. LI Y 0008 

10 SP(I> = Y ( I ) Y 0009 

CALL SUB2(X. SP.TOR.XLOAD.FR, NT) Y 0010 

L ( 1 ) =NT Y 0011 

L 1 =L ( 1 ) Y 0012 

00 20 1=1, LI Y 0013 

B ( I ♦ 1 0 ) = T OR ( I ) Y 0014 

20 F< I ) =32. 174* (B( I > -B (1*10) >/A< I) Y 0015 

RETURN Y 0016 

END Y 0017 



on ooonor>oooooooooo 
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SUBROUTINE SUB2 < XA ♦ SP ♦ TOR * XLOAO * FR t NS ) 01 

SUBROUTINES SUB 2* INPUT2.SETF *SETI*PRINT2*PL0T2*TAPE2*PRINT0* 01 

INITIA*RNGKT2*SWITCH*DISC0N*VMAX* VMAXGB.TRAN* VMAXTR ♦ DUPLEX ♦ VMAXDR* 01 
YPR IM2 *LMAT * IMAT * SAT *SATEF*RLMB*XLMAT* TRIAS* COM ACH*CDTRAN*CDCOMP* 01 
CDDR *MBSOLV *FMACH*F TRAN* FCOMP* FDR* FREG* YPR IMG* LMATG* IMATG* SATG* 01 

SATEFG* RLGB tXMMAT *TR I AG.GBMAT *GBSOLV*FGEN*FREGG*F mECH AND TORIH 01 
CONSTITUTE A SUBSYSTEM (SUB2) OF THE OVERALL POWER PLANT. 01 

THEY HAVE THE SAME COMMON* EXCEPT FOR SETF AND SETI WHICH HAVE NO 01 
COMMON. 01 

THEY HANDLE ALL COMPONENTS OF THE POWER PLANT EXCEPT THE PRIME MO- 01 
VERS OF THE GENERATING UNITS AND THEIR FUEL CONTROLS. 01 

FOR GIVEN SHAFT SPEEDS (SP) OF THE GENERATING UNITS ♦ INTEGRATE THE 01 
EQUATIONS OF SUB? FROM SUB2 TIME X TO MAIN TIME XA. 01 

AT TIME XA* TRANSFER TO MAIN THE EM TOROUES(TOR) AND THE AVERAGE 01 
THREE-PHASE POWERS (LOAD) OF THE GENERATING UNITS* AND THE FREQUEN- 01 
CY (FR ) OF THE MAIN BUS. THE NUMBER OF GENERATING UNITS CONNECTED 01 
TO THE MAIN BUS AT TIME XA IS NS. 01 

COMMON A.B*BO*C*CD*D*EG*EP.F*G*GB*Q*VV*W*X*XL*XM*Y.Z*L*LGl*LG2*LG3 01 
1*LP1*LP2*LP3* TITLE* HEAD 01 

DIMENSION A (80 *35) *B (99*35) *B0(8) *C(50) * CD (3*4) *D(120) *EG(50) *EP(501 
10) *F (316) *G<21 *35) *GB (3*4*9) *Q (316)* VV (21*9) *W (6*6*9) *XL <6* 10*35) *01 
?XM(6*10.9) *Y (316) * Z ( 6 * 6 * 35 ) * L ( 1 34 ) * LG1 < 50 ) * LG2 (50 ) *LG3 (50 ) *LP1 ( 50 ) 0 1 
3*LP2<50) *LP3(50) .TITLE (39) .HEAD (39) 01 

DIMENSION SP(10) *TOR<10) *XLOAD(10) 01 

IF (L ( 32 ) ) 2*1*2 01 

1 CALL IN IT I A 01 

L (32 ) =1 0 01 

2 NS=L<1) 01 

NT=L ( 1 ) ♦L (2) ♦ L (3) 01 

IF(NS.LE.O) GO TO 401 01 

TO 3—* COMPUTE THE ELECTRICAL SPEEDS AND THE PERCENT SPEED ERRORS 01 
OF THE GENERATING UNITS. 01 

DO 3 1 = 1* NS 01 

B(5*I)=A(15*I)*SP(I) 01 

3 B <4 ♦ I ) = 100. 0*<B(5*I)/377. 0-1.0) 01 

401 11=1 01 

4 IF (XA-X-0.001*C(1 ) ) 32*32*5 01 

C TO 12—* INTEGRATE. 01 

5 IF < X A-X-C ( 1 ) ) 6*6*7 01 

6 D ( 3 1 ) =X A-X 01 

IDX= 1 01 

GO TO 11 01 

7 D ( 3 1 ) =C < 1 ) 01 

I DX=2 01 

11 SW=0.0 01 

12 CALL RNGKT2 01 

IF(SW.GT.O.O) GO TO 520 01 

C TO 520 — * DISCONNECT COMPONENTS FROM THE MAIN BUS. 01 

IF (L (4) .LE.O) GO TO 510 01 

N 1=NT ♦ 1 01 

N2=N1*L(4)-1 01 

DO 500 I=N1 *N2 01 

J=L (1*50) 01 

B(1*I )=<Y (J^2)-Y (J) )/A<3* I) 01 

B(2*I)=(Y(J)-Y ( J* 1 ) )/A(3*I) 01 

500 B(3*I)=(Y(J*1)-Y(J^2) )/A(3*I) 01 

510 CALL SWITCH 01 

ISX=L ( 36 ) 01 

GO TO (520*12) *ISX 01 



0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 



n n n on no 



99 



c 



520 


SW=10.0 




01 


0059 




TO 530--* DISCONNECT GENERATORS FROM THE BUSES OF THE 


MG SETS. 


01 


0060 




IF (L(2) .LE.0) GO TO 530 




01 


0061 




CALL DISCON 




01 


0062 




ISX=L <36 ) 




01 


0063 




GO TO (530*12) «ISX 




01 


0064 


530 


NT=L(1)*L(2)*L(3) 




01 


0065 




NS=L ( 1 ) 




01 


0066 




IF(NT.LE.O) GO TO 409 




01 


0067 




TO IB — . CONVERT THE ELECTRICAL ANGLES OF ROTATING MACHINES TO AN- 


01 


0068 




GLES LESS THAN 2P I RADIANS. 




01 


0069 




DO 18 1=1 ,NT 




01 


0070 




LI=L(I*99) 




01 


0071 




GO TO <14. 13. 15). LI 




01 


0072 


13 


J=L ( I *50 ) ♦ 1 A 




01 


0073 




IF ( Y ( J) ,GT. 6. 2631 65307) Y (J) =Y ( J) -6.2631 85307 




01 


0074 


14 


J=L ( I *50 ) «6 




01 


0075 




GO TO 16 




01 


0076 


15 


J=L ( 1*50) *5 




01 


0077 


16 


IF ( Y ( J) .GT. 6. 263 185307) Y ( J) =Y ( J) -6.26318S307 




01 


0078 


1R 


CONTINUE 




01 


0079 




TO 407—. COMPUTE THE PERCENT ERRORS OF THE PEAKS AND 


FREQUENCIES 


01 


0080 




OF THE LINE-TO-LINE VOLTAGES AT VARIOUS POINTS OF THE 


POWER PLANT* 


01 


0081 


409 


CALL YPRIM2 




01 


0082 




L (33) =1 0 




01 


0083 




call vmax 




01 


0084 




IF (L<2) . GT . 0 ) CALL VMAXGB 




01 


0085 




IF ( L (4) .LE. 0 ) GO TO 408 




01 


0086 




CALL TRAN 




01 


0087 




CALL VMAXTR 




01 


0088 


40ft 


IF (L (6) .LE.O) GO TO 407 




01 


0089 




CALL DUPLEX 




01 


0090 




CALL VMAXDR 




01 


0091 


407 


IF (L (34) ) 21.19.21 




01 


0092 




TO 402—. OUTPUT FROM PRINT2. 




01 


0093 


19 


L ( 34 ) =L (9) -1 




01 


0094 




IPP=1 




01 


0095 


404 


IF(NT.LE.O) GO TO 410 




01 


0096 




TO 20 — . COMPUTE THE EM TORQUES OF GENERATING UNITS. AND THE AVE- 


01 


0097 




RAGE 3-PHASE POWERS AND PEAK REACTIVE POWERS PER PHASE 


OF MOTORS. 


01 


0098 




DO 20 1=1. NT 




01 


0099 




J=L ( I *50 ) 




01 


0100 




J2= J* 1 




01 


0101 




J3=J2*1 




01 


0102 




LI=L < I *99) 




01 


0103 




GO TO (406.405.405) , LI 




01 


0104 


405 


B ( I .I)=-0.001*(D(35)*Y( J) «D(36)*Y( J2> ♦D(37)*Y( J3> ) 




01 


0105 




R(2.I)=-1.9245E-4*(y(J)*D(39)*Y(J2)*D(40)«Y(J3)*D(38) ) 




01 


0106 




GO TO 20 




01 


0107 


406 


B(3.I) = (A(4.I)*(Y(J.3)-B(7.I))*A <5.I)*Y< J*4) )*(Y(J)*B(20*I)*Y(J2)* 


01 


0108 




1B(24.I)*Y(J3)*B(22.I) )*A <6. I ) *Y < J*5) * < Y < J) *B < 1 9. I ) ♦ Y < J2) *B < 23 . I ) ♦ Y 


01 


0109 


2< J3) *B (21 ♦ I ) ) 




01 


0110 




IF ( A ( 3 * I ) ) 103*103*101 




01 


0111 


101 


B(3.I)=B(3«I)-A(3.I)*(B(26.I)*(Y(J)*Y(J)*2.0*Y(J3)*Y(J2) ) .B(28.I)* 


01 


0112 




1 <Y(J2)*Y(J2) *2. 0*Y ( J) *Y ( J3) ) *B ( 30 . I ) * ( Y ( J3) *Y ( J3) *2. 0*Y < J) *Y < J2) ) ) 


01 


0113 


103 


B ( 3. I ) =-Q . 737564* A ( 1 5 . I ) *B ( 3. I ) 




01 


0114 


20 


CONTINUE 




01 


0115 


410 


GO TO (402.27.36) .IPP 




01 


0116 


402 


CALL PRINT2 




01 


0117 



100 



IP=1 

Go TO 22 

21 I P=2 
L < 34 ) =L ( 34 ) - 1 

22 IF (X - 0.017) 29*23*23 

23 IF ( L ( 35 ) ) 28*24*28 

C TO 27— » OUTPUT FROM PLOT2 • 

24 L ( 35 ) =L < 1 0 ) -1 
GO TO (27*25) *IP 

25 CONTINUE 
I PP=2 
GO TO 404 

27 CALL PLOT2 
GO TO 29 

28 L ( 35 ) =L ( 35 ) -1 

29 GO TO <30*31 ) ♦ IDX 

30 L < 33 ) *0 
GO TO (36*34) *IP 

31 11=2 
Go TO 4 

32 GO TO (33*30) *11 

C TO 36—* COMPUTE ALL THE VARIABLES 

33 CALL YPRIM2 
I F (L (4) .GT.O) CALL TRAN 
IF(L(6) .GT.O) CALL DUPLEX 

34 I PP=3 
GO TO 404 

36 CONTINUE 
IF (NS .LE • 0 ) GO TO 403 

C TO 403 — * COMPUTE TOR* XLOAD AND FR. 

DO 37 1=1 *NS 
TOR ( I ) =B ( 3 * I ) 

37 XLOAD ( I ) =B ( 1 * I ) 

403 FR = 60 .0* ( D ( 2) ♦ 1.0) 

RETURN 

END 



01 0118 
01 0119 
01 0120 
01 0121 
01 0122 
01 0123 
01 0124 
01 0125 
01 0126 
01 0127 
01 0128 
01 0129 
01 0130 
01 0131 
01 0132 
01 0133 
01 0134 
01 0135 
01 0136 
01 0137 
01 0138 

OF SUB2 WHEN XA>X. 01 0139 

01 0140 
01 0141 
01 0142 
01 0143 
01 0144 
01 0145 
01 0146 
01 0147 
01 0148 
01 0149 
01 0150 
01 0151 
01 0152 
01 0153 



o r> n o o 
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SUBROUTINE INPUT2 

READ INPUT DATA FOR SUB2 

ALL COMMON* EXCEPT TITLE AND HEAD. IS INITIALIZED TO ZERO BEFORE 
DATA ARE READ. 

DATA ARE CHECKED FOR ERRORS AS THEY ARE READ. THE RUN IS ABORTED 
WITH THE FIRST ERROR FOUND. AND A COMMENT IS WRITTEN IN TAPE 6. 
COMMON A.B.B0.C.CD.D.E6.EP.F.6.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1 .LG2.LG3 
1 .LP1.LP2.LP3. TITLE. HEAD 



02 0000 
02 0001 
02 0002 
02 0003 
02 0004 
02 0005 
02 0006 
02 0007 

DIMENSION A (80. 35) .B (99,35) ,B0<8) .C(50) .CD <3. 4) , D < 120 ) , EG (50 ) , EP (502 0 0 08 
10) .F< 316) ,G(21 ,35) ,GB (3,4,9) ,0(316) .VV (21.9) .W (6.6,9) .XL (6, 10,35) .02 0009 
2XM(6, 10,9) ,Y (316) ,Z (6.6,35) ,L( 134) ,LG1 (50) ,LG2 (50) ,LG3(50) ,LP1 (50)02 0010 

3,LP2(50) ,LP3(50> ,TITLE(39) .HEAD (39) 02 0011 

DIMENSION E(6) ,N(10) ,BB<8) 02 0012 

DATA BB/1HX. 1HY. 1HF , 1HL, 1HC, 1HD.1HA, 1HB/, 02 0013 

IN/1. 316.316.1 34.50.1 20.80.99.35/ » 02 0014 

2 BR.BI.BP.BG/IHR.lHI.lHP.lHG/ 02 0015 

100 FORMAT ( 13A6) 02 0016 

101 FORMAT (1H1.19HINPUT DATA FOR SUB2//1H .13A6/1H .13A6/1H .13A6) 02 0017 

102 FORMAT ( 1H .13A6/1H .13A6/1H ,13A6) 02 0018 

103 FORMAT ( A 1 » 1 X , A 1 ,711 .6E10.4) 02 0019 

104 FORMAT < 1H1 .25HABN0RMAL EXIT FROM INPUT2/9H BAD DAT A/1 H ,A1,1X,A1 .7 02 0020 

111 ) 02 0021 

105 FORMAT < 1 H , A1 , 1 X, A1 , 1H ( , 13, 1H-, 13, 1H) .6X.6E17 .6) 02 0022 

106 FORMAT ( 1H , A1 , 1 X, A1 , 1 H ( , 1 2, 1H- , 1 2 . 1H. ♦ 12. 1 H ) »5X . 6E17 . 6) 02 0023 

107 FORMAT (1H , A1 , 1 X, A1 , 1H ( , 13. 1H-, 13, 1H) ) 02 0024 

108 FORMAT (1H , A1 , 1 X , A1 , 1H ( . 12 , 1H-, 1 2, 1 H, » 12, 1 H) ) 02 0025 

109 FORMAT ( 1 HI .6HOUTPUT // 1H .13A6/1H .13A6/1H ,13A6) 02 0026 

TWO LINES DOWN — , INITIALIZE COMMON. 02 0027 

CALL SETF (A.12759,0.0) 02 0028 





M*0 


02 


0030 




K = 0 


02 


0031 




DO 45 1=1 »8 


02 


0032 


45 


BO ( I ) * BB ( I ) 


02 


0033 




READ ( 5? 1 00 ) TITLE 


02 


0034 




WRITE (6,101) TITLE 


02 


0035 




READ (5,100) HEAD 


02 


0036 




WRITE (6,102) HEAD 


02 


0037 


2 


READ (5,103) Cl, C2, 11, 12, 13, 14, 15, 16, 17, E 


02 


0038 




IF (Cl - BR) 3,40,3 


02 


0039 


3 


DO 4 1=1,8 


02 


0040 




II = I 


02 


0041 




IF (C2-B0 ( I ) ) 4 , 6 ,4 


02 


0042 


4 


CONTINUE 


02 


0043 




BAD DATA. ABORT RUN. 


02 


0044 


5 


WRITE (6,104) Cl,C2,Il,I2,I3,I4,I5,I6f 17 


02 


0045 




CALL EXIT 


02 


0046 


6 


60 TO (7, 7, 7, 7, 7, 7, 8, 8), II 


02 


0047 


7 


K1 = 100*I1 M0M2M3 


02 


0048 




K2 = 100M5*10*I6*I7 


02 


0049 




K3=0 


02 


0050 




60 TO 10 


02 


0051 


fl 


K1=10*I3*I4 


02 


0052 




K2=10*I6M7 


02 


0053 




K3= 1 0* I 1 ♦ I 2 


02 


0054 




IF (K3 - N<9) ) 10,10,5 


02 


0055 


10 


K4=K2-K 1*1 


02 


0056 




I F (K2-N (II) ) 11,11,5 


02 


0057 


11 


IF ( K 1 ) 5,5,12 


02 


0058 
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12 IF ( K2-K 1 ) 5.13*13 

13 IF (Cl-BI ) 33.14.33 

14 IF (K4-6) 15.15.5 

15 GO TO (16.16.16.16.16.16.28.28) .II 

16 WPITF (6.105) C1.C2.K1.K2. (E(I) .1*1 
GO TO (17.18.20.22.24.26) .II 

17 X=E ( 1 ) 

GO TO 2 

18 DO 19 1=1. K4 
J = K 1 ♦ I — 1 

19 Y ( J ) =E ( I ) 

GO TO 2 

20 DO 21 1=1 ♦ K4 
J=K 1 ♦ I - 1 

21 F ( J ) =E ( I ) 

Go TO 2 

22 DO 23 1=1. K4 
J=K 1 ♦ I — 1 

23 L(J)=E(I) 

GO TO 2 

24 DO 25 1=1. K4 
J=K 1 ♦ I — 1 

25 C ( J) =E ( I ) 

GO TO 2 

26 DO 27 1=1. K4 
J=K 1 ♦ I — 1 

27 D ( J) =E ( I ) 

GO TO 2 

28 WRITE (6.106) C1.C2.K1.K2.K3. (E(I) ♦ 
IF ( 1 1 -7 ) 29.29.31 

29 DO 30 1=1. K4 
J=K 1 ♦ I “ 1 

30 A ( J. K3) =E ( I ) 

GO TO 2 

31 DO 32 1=1. K4 
J=K 1 ♦ I - 1 

32 B ( J.K3 ) =E ( I ) 

GO TO 2 

33 IF(Cl-BP) 35.34.35 

34 M=M ♦ 1 

EP (M ) =C2 
LP1 ( M ) =K 1 
LP2(M)=K2 
LP3 ( M ) =K3 
GO TO 37 

35 IF(Cl-BG) 5.36.5 

36 K=K ♦ 1 

EG ( K ) =C2 
LG1 ( K ) =K 1 
LG2 ( K ) =K2 
LG3 ( K ) =K3 

37 IF (II - 6) 38.38.39 

38 WRITE (6.107) C1.C2.K1.K2 
GO TO 2 

39 WRITE (6.108) Cl . C2.K 1 .K2.K3 
GO TO 2 

40 L ( 50 ) =M 
L (49 ) =K 

WRITE (6.109) TITLE 



02 0059 
02 0060 
02 0061 
02 0062 

K4) 02 0063 

02 0064 
02 0065 
02 0066 
02 0067 
02 0068 
02 0069 
02 0070 
02 0071 
02 0072 
02 0073 
02 0074 
02 0075 
02 0076 
02 0077 
02 0078 
02 0079 
02 0080 
02 0081 
02 0082 
02 0083 
02 0084 
02 0085 
02 0086 

= 1 ♦ K4 ) 02 0087 

02 0088 
02 0089 
02 0090 
02 0091 
02 0092 
02 0093 
02 0094 
02 0095 
02 0096 
02 0097 
02 0098 
02 0099 
02 0100 
02 0101 
02 0102 
02 0103 
02 0104 
02 0105 
02 0106 
02 0107 
02 0108 
02 0109 
02 0110 
02 0111 
02 0112 
02 0113 
02 0114 
02 0115 
02 0116 
02 0117 
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RETURN 

END 



02 0110 
02 0119 



104 



SUBROUTINE SETF, <AI*J*AK) 

C SET J POSITIONS OF REAL ARRAY AI TO THE VALUE AK . 

DIMENSION AI(l) 

DO 10 IJ=itJ 
AI(IJ) = AK 
10 CONTINUE 
RETURN 
END 



03 0000 
03 0001 
03 0002 
03 0003 
03 0004 
03 0005 
03 0006 
03 0007 



105 



10 



SUBROUTINE SETKII.J.K) 

SET J POSITIONS OF INTEGER ARRAY II TO THE VALUE K. 
DIMENSION 11(1) 

DO 10 IJ=1«J 

II ( I J) = K 

CONTINUE 

RETURN 

END 



OA 0000 
04 0001 
04 0002 
04 0003 
04 0004 
04 0005 
04 0006 
04 0007 



106 



SUBROUTINE PRINT2 05 0000 

C OUTPUT FOR SUB2 ON TAPE 6. 05 0001 

COMMON A,B»B0»C»CD»D,EG,EP»F,G»GB,Q,VV,W,X»XL»XM,Y,Z,L,LG1»LG2»LG3 05 0002 
1 »LPl ,LP2,LP3, TITLE, HEAD 05 0003 

DIMENSION A (80*35) ,B (99,35) .80(8) ,C(50> ,CD<3,4> ,D<120> , EG ( 50 ) , EP (505 0004 
10) ,F(316) ,G(21 ,35) ,GB<3,4,9) ,Q<316> ,VV<21,9) ,W<6.6»9) ,XL(6, 10,35) ,05 0005 
2XM(6.10,9) ,Y (316) , Z ( 6, 6. 35 ) ,L ( 1 34 ) , LG1 (50) ,LG2(50) ,LG3(50) ,LP1 (50)05 0006 
3,LP2(50),LP3(50),TITLE(39),HEAD(39) 05 0007 



100 


FORMAT (1H0) 


05 


0008 


101 


FORMAT (1H ,A1,1H(,I3,1H-,I3,1H),2X,10(1PE12.4) ) 


05 


0009 


102 


FORMAT (1H ,A1 ,1H(, I2.1H-, I2.1H, ,12, 1H) , 1X.10 (1PE12.4) ) 


05 


0010 


103 


FORMAT (1H ,A1,1H(,I3,1H-,I3.1H),2X,10I6) 


05 


0011 




M=L (50) 


05 


0012 




IF ( M ) 19,19,1 


05 


0013 


1 


WRITE (6,100) 


05 


0014 




DO 18 1*1, M 


05 


0015 




DO 2 J=1 ,8 


05 


0016 




JJ=J 


05 


0017 




IF (EP ( I ) -BO ( J) ) 2,3,2 


05 


0018 


? 


CONTINUE 


05 


0019 


3 


K1=LP1 ( I ) 


05 


0020 




K2=LP2 ( I ) 


05 


0021 




K3=LP3 ( I ) 


05 


0022 


4 


IF (K2-K1 ) 18,6,5 


05 


0023 


5 


IF (K2-K1-9) 6,6,7 


05 


0024 


6 


K4=K2 


05 


0025 




GO TO 8 


05 


0026 


7 


K4=K 1*9 


05 


0027 


8 


GO TO (9, 10, 11, 12, 13, 14, 15, 16), JJ 


05 


0028 


9 


WRITE (6,101) BO(JJ) ,K1 ,K4,X 


05 


0029 




GO TO 17 


05 


0030 


10 


WRITE (6,101) BO(JJ) ,K1 ,K4, (Y( J) , J=K1 ,K4) 


05 


0031 




GO TO 17 


05 


0032 


11 


WRITE (6,101) BO(JJ) ,K1 ,K4, (F (J) ,J=K1 ,K4) 


05 


0033 




GO TO 17 


05 


0034 


12 


WRITE (6,103) BO( JJ) ,K1 ,K4. (L < J) , J=K1 ,K4) 


05 


0035 




GO TO 17 


05 


0036 


13 


WRITE (6,101) BO(JJ) ,K1,K4, (C ( J) , J=K 1 , K4 ) 


05 


0037 




GO TO 17 


05 


0038 


14 


WRITE (6,101) BO(JJ) ,K1,K4, (D(J) , J=K 1 ,K4 ) 


05 


0039 




GO TO 17 


05 


0040 


15 


WRITE (6,102) BO(JJ) ,K1»K4,K3» (A(J,K3) ,J=K1,K4) 


05 


0041 




GO TO 17 


05 


0042 


16 


WRITE (6,102) B0(JJ),K1,K4,K3,(B(J,K3),J*K1»K4) 


05 


0043 


17 


K1=K1 ♦ 1 0 


05 


0044 




GO TO 4 


05 


0045 


18 


CONTINUE 


05 


0046 


19 


RETURN 


05 


0047 




END 


05 


0048 
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SUBROUTINE PL0T2 06 0000 

C OUTPUT FOR SUB2 ON TAPE 2. 06 0001 

COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB,Q.VV.W.X.XL.XM.y.Z.L.LGl.LG2.LG3 06 0002 
1.LP1.LP2.LP3.TITLE.HEAD 06 0003 

DIMENSION A (80.35) .B (99.35) .BO ( 8 ) . C (50 ) .CD ( 3, 4) .D ( 1 20 ) , EG (50 ) . EP (506 0004 
10) .F (316) «G(21 .35) .GB(3.4.9) .0(316) .VV(21 .9) .WI6.6.9) .XL(6. 10.35) .06 0005 
2XM(6. 10.9) .Y(316).Z(6.6.35).L(134).LG1(50) *LG2(50) .LG3I50) .LP1 (50)06 0006 
3*LP2(50)*LP3(50).TITLE(39).HEAD(39) 06 0007 





DIMENSION P ( 50 ) 


06 


0008 




K=L (49) 


06 1 


D 009 




I F ( K ) 20 1 20 * 1 


06 


0010 


1 


L (44 ) *L ( 44 ) ♦ 1 


06 


0011 




1 = 0 


06 


0012 




DO 19 J= 1 t K 


06 


0013 




DO 2 M= 1*8 


06 


0014 




MM = M 


06 


0015 




IF(EG(J)-BO(M) ) 2*3*2 


06 


0016 


2 


CONTINUE 


06 


0017 


3 


K 1 =LG1 ( J ) 


06 


0018 




K2=LG2( J) 


06 


0019 




K3=LG3( J) 


06 


0020 




GO TO (4*5*7*9*11*13*15* 17) *MM 


06 


0021 


4 


1 = 1*1 


06 


0022 




P(I)=X 


06 


0023 




GO TO 19 


06 


0024 


5 


DO 6 N=K 1 * K2 


06 


0025 




1 = 1*1 


06 


0026 


6 


P ( I )=V (N) 


06 


0027 




GO TO 19 


06 


0028 


7 


DO 8 N=K1*K2 


06 


0029 




1 = 1*1 


06 


0030 


ft 


P ( I ) =F ( N ) 


06 


0031 




GO TO 19 


06 


0032 


9 


DO 10 N=K 1 * K2 


06 


0033 




1 = 1*1 


06 


0034 


10 


P ( I ) =L (N) 


06 


0035 




GO TO 19 


06 


0036 


11 


DO 12 N=KlfK2 


06 


0037 




1 = 1*1 


06 


0038 


12 


P(I)=C(N> 


06 


0039 




GO TO 19 


06 


0040 


13 


DO 14 N=K1*K2 


06 


0041 




1 = 1*1 


06 


0042 


14 


P(I)=D(N) 


06 


0043 




GO TO 19 


06 


0044 


15 


DO 16 N=K1 « K2 


06 


0045 




1 = 1*1 


06 


0046 


16 


P ( I ) =A (N* K3) 


06 


0047 




GO TO 19 


06 


0048 


17 


DO 18 N=K1*K2 


06 


0049 




1 = 1*1 


06 


0050 


1ft 


P ( I ) =B ( N • K3) 


06 


0051 


19 


CONTINUE 


06 


0052 




L ( 45 ) = I 


06 


0053 




WRITE (2) (P(J)*J=1*I) 


06 


0054 


20 


RETURN 


06 


0055 




END 


06 


0056 
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SUBROUTINE TAPE2 

TRANSFER TO TAPES 6 AND 7 THE OUTPUT WRITTEN BY PLOT 2 
COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM. Y.Z.L 
1 *LP1 .LP2.LP3.TITLE.HEAD 

DIMENSION A ( 80 » 35 ) * R ( 99 .35 ) *BO(B) *C (50 ) .CD (3 *4 ) »D ( 120) 
10) *F (316) . G ( 21 ♦ 35 ) .GB(3»4*9) *0(316) * VV ( 21 ♦ 9) *W(6*6»9). 
2XM (6 . 1 0 .9 ) *Y (316) .Z (6.6.35) .L< 134) .LG1 (50) .LG2(50) .LG3 
3.LP2 (50) .LP3 (50) .TITLE (39) .HEAD (39) 



07 0000 
ON TAPE 2. 07 0001 

.LG1.LG2.LG3 07 0002 
07 0003 

.EG(50) »EP (507 0004 
XL(6. 10.35) .07 0005 
(50) .LP1 (50)07 0006 
07 0007 





DIMENSION P ( 50 ) 


07 


0008 


100 


FORMAT ( 1 HI ♦ 1 8HPR INTOUT OF TAPE 7/1H *13A6/1H *13A6/1H *13A6) 


07 


0009 


101 


FORMATdH * 1 3A6/1 H ,13A6/1H *13A6) 


07 


0010 


102 


format ( 1 h * 1 qhnumber of records=*I4) 


07 


0011 


103 


FORMAT (1H *7 ( 1PE15.4) *216) 


07 


0012 


104 


FORMAT ( 1 3A6) 


07 


0013 


105 


FORMAT ( 18HNUMBER OF REC0RDS=*I4) 


07 


0014 


106 


format (7(ipeio* 3) t2i5> 


07 


0015 




IF ( L (44 ) ) 8 t 8 t 1 


07 


0016 


1 


WRITE ( 6 ♦ 1 00 ) TITLE 


07 


0017 




WRITE ( 6 « 1 0 1 ) HEAD 


07 


0018 




WPITE (6*102) L ( 44 ) 


07 


0019 




WRITE (7*104) TITLE 


07 


0020 




WRITE (7*104) HEAD 


07 


0021 




WRITE (7*105) L ( 44 ) 


07 


0022 




REWIND 2 


07 


0023 




I I =L ( 44 ) 


07 


0024 




KK =L (45 ) 


07 


0025 




DO 3 1=1*50 


07 


0026 


3 


P(I) = 0.0 


07 


0027 




DO 7 1=1*11 


07 


0028 




READ ( 2 ) ( P ( K ) * K = 1 ♦ KK ) 


07 


0029 




J=1 


07 


0030 




K 1 = 1 


07 


0031 




K2=7 


07 


0032 


5 


WRITE (6*103) (P(K) *K=K1*K2) *1* J 


07 


0033 




WRITE (7*106) (P(K) *K=K1*K2) ♦ I • J 


07 


0034 




I F (K2-KK ) 6*7*7 


07 


0035 


6 


K1=K1*7 


07 


0036 




K2=K2^7 


07 


0037 




J = J^1 


07 


0038 




GO TO 5 


07 


0039 


7 


CONTINUE 


07 


0040 


8 


RETURN 


07 


0041 




END 


07 


0042 



o n 



109 



SUBROUTINE PRINTO 08 0000 

WRITE ON TAPE 6 THE VALUES OF THE DEPENDENT AND OTHER VARIABLES OF 08 0001 

SUB2. 08 0002 

COMMON A.B.B0.C.CD.D.EG.EP.F.G.GB.G.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 08 0003 

1.LP1.LP2.LP3. TITLE. HEAD 08 0004 

DIMENSION A (80 *35) .B (99.35) .BO (8) .C(50) .CD (3.4) tD(120) .EG (50) .EP(508 0005 
10) .F (316) .G( 21 .35) .GB (3. 4.9) .0(316) .VV (21 .9) .W (6.6. 9) .XL (6. 10.35) .08 0006 
2XM ( 6 . 10*9) ♦ Y (316) .Z (6.6.35) .L ( 1 34) .LG1 (50 ) .LG2<50) .LG3(50) .LP1 (50)08 0007 
3.LP2(50) .LP3(50) .TITLE(39) .HEAD(39) 08 0008 

1 FORMAT (1H1 .47HVALUES OF DEPENDENT AND OTHER VARIABLES AT TIME.F9.4 08 0009 

1 « 4H SEC/ 1 HO ) 08 0010 

2 F ORMAT ( 1 HO ♦ 1 2H SET NUMBER .12/) 08 001 1 

3 FORMAT ( 1H ♦3HY(»I3»3H) =.E16.8) 08 0012 

11 FORMAT ( 1 HO ♦ 24H COMMERCIAL POWER SYSTEM/) 08 0013 



14 FORMAT (1H t2HB ( ♦ 12 . 1H. . 12. 2H) = .E 
1.2H)=.E16.8/) 

16 F ORMAT ( 1 HO ♦ 47H DUPLEX REACTOR AND 
WR ITE (6 . 1 ) X 

NS=L ( 1 ) ♦L(2) ♦L (3) ♦ L (4 ) 

N 1 =1 
N2=0 

IF ( NS .LE. 0 ) GO TO 111 
DO 5 1=1. NS 
WRITE (6.2) I 
LI=L(I*99) 

GO TO (6.7.8.18) .LI 

6 N2=N2*11 
J=14 

j9 = n i ♦e 

WRITE (6.14) J.I.B(J.I) . J9. F ( J9 ) 
GO TO 9 

7 N2=N2*19 
J9=N 1^16 
J=42 

WR ITE ( 6 ♦ 1 4 ) J.I.B(J.I) ♦ J9 . F ( J9 ) 

GO TO 9 

8 N2=N2*7 
GO TO 9 

18 N2=N2* 3 

9 DO 4 J=N 1 . N2 

4 WRITE (6.3) J.Y(J) 

5 N1=N2^1 

111 IF ( L ( 5 ) ) 13. 13. 10 
10 WRITE (6.11) 

N2=N2*3 

DO 12 J=N 1 ♦ N2 

12 WRITE (6.3) J.Y(J) 

13 IF (L (6) .LE • 0 ) GO TO 15 
WPITE (6.16) 

N2=L (31) 

DO 17 J=N1.N2 

17 WRITE (6.3) J.Y(J) 

15 RETURN 
END 



6.8/3H F ( ♦ 1 3 08 0014 

08 0015 

HIGH VOLTAGE POWER SUPPLIES/) 08 0016 

08 0017 
08 0018 
08 0019 
08 0020 
08 0021 
08 0022 
08 0023 
08 0024 



08 


0025 


08 


0026 


08 


0027 


08 


0028 


08 


0029 


08 


0030 


08 


0031 


08 


0032 


08 


0033 


08 


0034 


08 


0035 


08 


0036 


08 


0037 


08 


0038 


08 


0039 


08 


0040 


08 


0041 


08 


0042 


08 


0043 


08 


0044 


08 


0045 


08 


0046 


08 


0047 


08 


0048 


08 


0049 


08 


0050 


08 


0051 


08 


0052 


08 


0053 



110 



SUBROUTINE INITIA 09 0000 

C INITIALIZE CERTAIN VARIABLES AND CONSTANTS. 09 0001 

COMMON A .B.BO.C.CD.O.EG.EP. F .G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 09 0002 

1 .LP1.LP2.LP3, TITLE, HEAD 09 0003 

DIMENSION A (80. 35) ,B (99,35) ,BO<8) ,C(50> ,C0(3,4> .0(120) .EG<50) ,EP(509 0004 
10) ,F(316) ,G(21 .35) ,GB(3»4,9) .0(316) . VV ( 21 ,9) ♦ W ( 6.6. 9) , XL (6. 1 0 ,35 ) . 09 0005 
2XM (6,10.9) »Y(316).Z(6.6.35),L(134) »LG1 (50) .LG2(50> ,LG3(50) .LP1 (50)09 0006 
3.LP2(50) .LP3(50) .TITLE(39) .HEAD (39) 09 0007 





REWIND 2 


09 


0008 




NS=L(1)*L(2)*L(3)*L<4) 


09 


0009 




L ( 34 ) = L (9) -1 


09 


0010 




LOS) = L ( 1 0 ) -1 


09 


0011 




L(31 )*11*L (1) *19*L (2) *7*L (3) »3*L(4) 


09 


0012 




IF (L (5) .LE.0) GO TO 1 


09 


0013 




LOl >=L (31 ) *3 


09 


0014 




L (NS*51 ) = LOl) - 2 


09 


0015 


1 


IF (L (6) .LE.0) GO TO 2 


09 


0016 




L (31 ) =L (31 ) *6 


09 


0017 


2 


IF(NS.LE.O) RETURN 


09 


0018 




J=1 


09 


0019 




OO 9 1*1, NS 


09 


0020 




L < 1 *50 ) = J 


09 


0021 




LI=L ( I *99) 


09 0022 




GO TO (4,5.7.10) .LI 


09 


0023 


4 


A(36,I)=B(14,I) 


09 


0024 




A (37 , I ) =F ( J*8 ) 


09 


0025 




J=J*1 1 


09 


0026 




GO TO 6 


09 


0027 


5 


A (66, I ) =B (42, I ) 


09 


0028 




A (67, I ) =F ( J* 1 6) 


09 


0029 




J= J* 1 9 


09 


0030 




K=I-L ( 1 ) 


09 


0031 




XM(6,6.K)=A(40.I) 


09 


0032 




W(4»4»K)=A(42.I) 


09 


0033 




W(5.5,K)=A(43»I) 


09 


0034 




W(6.6.K)=A(44,I) 


09 


0035 


6 


XL (6, 6, I) =A (10. I) 


09 


0036 




Z(4, 4.1) =A (12.1) 


09 


0037 




Z (5.5. I ) =A ( 13, I ) 


09 


0038 




Z (6.6, I ) =A (14.1) 


09 


0039 




GO TO 9 


09 


0040 


7 


XL (5,5, I ) =A (3, I ) 


09 


0041 




Z(l.l.I) = A (5 ♦ I ) 


09 


0042 




Z (2,2. I ) = A (5. I ) 


09 


0043 




ZOO. I) = A (5. I ) 


09 


0044 




Z (4 » 4 , I ) = A ( 6 , I ) 


09 


0045 




Z (5.5 , I ) =A (6. I ) 


09 


0046 




J=J*7 


09 


0047 




GO TO 9 


09 


0048 


10 


J=J*3 


09 


0049 


9 


CONTINUE 


09 


0050 




RETURN 


09 


0051 




END 


09 


0052 



Ill 



SUBROUTINE RNGKT2 10 0000 

C INTEGRATION SCHEME FOR THE DEPENDENT VARIABLES OF SUB2— GILL PRO- 10 0001 

C CEDURE OF THE FOURTH ORDER RUNGE-KUTTA METHOD. 10 0002 

COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 10 0003 
1.LP1.LP2.LP3.TITLE.HEAD 10 0004 

DIMENSION A(80*35) .B (99.35) .80(8) »C (50) . CD ( 3 * 4) »D< 120) »EG(50> *EP(510 0005 
10) .F(316) .G(21 .35) .GB<3.4.9> ,0(316) ,VV(21 .9) .W (6.6.9) .XL (6. 10.35) . 10 0006 
2XM (6. 10.9) ,Y (316) .Z (6.6.35) .L ( 134) .LG1 (50) .LG2(50) .LG3(50) .LP1 (50) 10 0007 
3«LP2<50) *LP3(50) «TITLE(39) .HE AD (39) 10 0008 



N=L (31) 


10 


0009 


H=D ( 3 1 ) 


10 


0010 


HH=.5*H 


10 


0011 


CALL YPRIM2 


10 


0012 


DO 5 I = 1 * N 


10 


0013 


S=F(I)*H 


10 


0014 


T=.5*(S-2.*Q(I) ) 


10 


0015 


Y ( I ) =Y ( I ) ♦ T 


10 


0016 


Q(I)=Q(I)0.*T-.5*S 


10 


0017 


X=X ♦HH 


10 


0010 


CALL YPRIM2 


10 


0019 


DO 6 I = 1 * N 


10 


0020 


S=F(I)*H 


10 


0021 


T=0.292893219*(S-Q( I) ) 


10 


0022 


Y ( I ) =Y ( I ) ♦ T 


10 


0023 


0(1) =Q (I) ♦3«*T -0.29289 32 19*S 


10 


0024 


CALL YPRIM2 


10 


0025 


DO 7 1=1 »N 


10 


0026 


S=F(I)*H 


10 


0027 


T = 1 .70710 67 81*( S-Q ( I ) ) 


10 


0028 


Y(I)=Y(I)*T 


10 


0029 


0(1) =0 ( I ) ♦3.0*T-1 .7071 06781 *S 


10 


0030 


X=X ♦HH 


10 


0031 


CALL YPRIM2 


10 


0032 


DO 8 1=1 »N 


10 


0033 


S=F(I)*H 


10 


0034 


T=(S-2.*Q(I) )/6. 


10 


0035 


Y ( I ) =Y ( I ) ♦ T 


10 


0036 


0 ( I ) =0 ( I ) ♦3.*T-.5*S 


10 


0037 


RETURN 


10 


0038 


END 


10 


0039 



o o 



112 





SUBROUTINE SWITCH 








11 


0000 




DISCONNECT COMPONENTS FROM THE MAIN 


BUS 


PHASE 


-BY-PHASE WHEN THE 


11 


0001 




RESPECTIVE PHASE CURRENTS ARE ZERO. 








11 


0002 




COMMON A*B*BO*C*CD*D*EG*EP*F*G* GB * 0 * V V * 


W ♦ X ♦ XL 


.XM.Y.Z.L.LG1 ,LG2 , LG 3 


11 


0003 




1*LP1*LP2*LP3* TITLE .HEAD 








11 


0004 




DIMENSION A ( 80 ,35) ,8(99,35) *B0(8) ,C (50 ) 


* CD ( 3 * 


4) ,D(120) * EG ( 50 ) *EP (51 1 


0005 




10) »F ( 316) ,G(21 , 35) ,68(3,4,9) *Q(316> 


«VV (21,9) »W(6»6.9) »XL(6, 10,35) » 


11 


0006 




2XM(6,10»9) ♦ Y (316) , Z (6.6 . 35) ,L ( 1 34) , 


LG1 (50) *LG2(50) *LG3(50) *LP1 (50) 11 


0007 




3»LP2(50)»LP3(50)»TITLE(39) .HE AO (39) 








11 


0008 




DIMENSION YY(316) .00(316) .68(3,35) 








1 1 


0009 




IF (L 1 37 ) .LE. 0 ) GO TO 3 








11 


0010 




L ( 37 ) =0 








11 


0011 




DISCONNECT PHASE A. 








11 


0012 


2 


L (40 ) =1 0 








11 


0013 




IF ( I.GT .NS.0R.LI.NE.4) GO TO 50 








11 


0014 




N=J*2 








11 


0015 


1 


Y(J)=0.5*(Y(J) *Y ( N ) ) 








11 


0016 




Q< J)=0.5*<Q( J) *0 ( N ) ) 








11 


0017 




Y(N)=Y(J) 








1 1 


0018 




0 (N ) =0 ( J) 








11 


0019 




GO TO 55 








11 


0020 


3 


IF (L (38) .LE.O) GO TO 6 








11 


0021 




L ( 38 ) =0 








11 


0022 




DISCONNECT PHASE B. 








11 


0023 


5 


L (41 ) =10 








11 


0024 


4 


IF(I.GT.NS.0R.LI.NE.4) GO TO 50 








11 


0025 




N=J-1 








11 


0026 




GO TO 1 








11 


0027 


6 


IF (L (39) .LE.O) GO TO 10 








11 


0028 




L ( 39 ) =0 








11 


0029 




DISCONNECT PHASE C. 








11 


0030 


9 


L (42) =10 








11 


0031 




GO TO 4 








11 


0032 


10 


NS=L(1)*L(2)*L(3)*L(4) 








11 


0033 




TO 20 — , DETERMINE COMPONENT TO BE 


DISCONNECTED. 


11 


0034 




IF ( NS .LE. 0 ) GO TO 15 








11 


0035 




DO 13 1=1, NS 








11 


0036 




XD=A (20,1) 








11 


0037 




LI=L ( 1*99) 








11 


0038 




IF (LI ,E0.3> XD=A(8,I) 








11 


0039 




IF (LI .E0.4) XO=A (11,1) 








11 


0040 




IF(X.LT.XD) GO TO 13 








11 


0041 




L (43) =1 








11 


0042 




GO TO 20 








11 


0043 


13 


CONTINUE 








11 


0044 


15 


IF(L(5) .LE.O) GO TO 200 








11 


0045 




IF <X.LT.C(46) ) GO TO 200 








11 


0046 




L ( 43) =NS* 1 








11 


0047 


20 


I=L(43) 








11 


0048 


25 


IF (L ( 40 ) .GT.O) GO To 35 








11 


0049 




TO ABOVE 26—. DETERMINE IF PHASE A 


SHOULO BE 


0 ISCONNECTEO • 


11 


0050 




J=L (1*50) 








11 


0051 




PY=Y( J) *YY ( J) 








11 


0052 




IF(I.LE.NS.AND.LI.E0.4) PY=B(1.I)*BB(1» 


I) 




11 


0053 




K=1 








11 


0054 




IF(PY) 26*2*35 








11 


0055 


26 


L(37) = 10 








11 


0056 




TO 30—. BACKSTEP TO INTEGRATE TO ZERO 


CURRENT# 


11 


0057 


27 


RY=YY(J)/(YY(J)-Y(J) ) 








11 


0058 



o o 



113 





IF < I .LE.NS. AND. LI .E0.4) RY = BB < K » I) / ( BB (K » I) 


-B(K, I ) ) 


11 


0059 




X=X-D ( 31 ) 








11 


0060 




D < 31 ) =D ( 31 ) *RY 








11 


0061 




L ( 36 ) =2 








11 


0062 




NN=L ( 31 ) 








11 


0063 




DO 30 N = 1 * NN 








11 


0064 




Y (N) =YY (N) 








11 


0065 


30 


Q(N)=QQ(N) 








11 


0066 




RETURN 








11 


0067 


35 


IF (L (41 ) .GT.O) GO TO 40 








11 


0068 




TO ABOVE 38—. DETERMINE IE PHASE 


B 


SHOULD 


BE DISCONNECTED. 


11 


0069 




J=L ( I ♦ SO > ♦ 1 








11 


0070 




PY=Y(J)*YY(J) 








11 


0071 




IE(I.LE.NS.AND.LI.E0.4) PY=B ( 2 . I > *BB < 2. I > 




11 


0072 




K = 2 








11 


0073 




IF(PY) 38*5*40 








1 1 


0074 


38 


L ( 38) = 10 








11 


0075 




GO TO 27 








11 


0076 


40 


IF (L ( 42 ) .GT.O) GO TO 200 








11 


0077 




TO ABOVE 45—* DETERMINE IF PHASE 


C 


SHOULD 


BE DISCONNECTED. 


11 


0078 




J=L(I*50)*2 








11 


0079 




PY=Y ( J)*YY ( J) 








11 


0080 




IE(I.LE.NS.AND.LI.E0.4) PY=B(3.I)*BB(3,I) 




11 


0081 




K = 3 








11 


0082 




IF(PY) 45*9*200 








11 


0083 


45 


L ( 39 ) = 10 








11 


0084 




GO TO 27 








11 


0085 


50 


Y< J)=0.0 








11 


0086 




Q( J) =0.0 








11 


0087 




TO ABOVE 60 — . DETEPMINE IE ALL PHASES ARE 


DISCONNECTED. 


11 


0088 




IE (L (40) .GT.O. AND. L (41 ) .GT.O. AND. 


L (42) .GT.O) GO TO 60 


11 


0089 




GO TO 25 








11 


0090 


55 


IE(L(40) .GT.O. AND. L (41 ) .GT.O) GO 


TO 


60 




11 


0091 




IE (L < 40 ) .GT.O. AND. L(42) .GT.O) GO 


TO 


60 




11 


0092 




IF tL <41 ) .GT.O. AND. L(42) .GT.O) GO 


TO 


60 




11 


0093 




GO TO 25 








11 


0094 




TO 180 — . COMPONENT HAS BEEN DISCONNECTED. 


ADJUST VARIABLES AND 


11 


0095 




SHIFT ARRAYS. ALSO. SHIFT INSTRUCTIONS FOR 


PL0T2. 


11 


0096 


60 


L ( 40 ) =0 








11 


0097 




L ( 4 1 ) =0 








11 


0098 




L ( 42 ) =0 








11 


0099 




L (43) =0 








11 


0100 




IF C I • LE.NS) GO TO 70 








11 


0101 




L ( 5 ) =0 








11 


0102 




K = 3 








11 


0103 




IF ( L ( 6 ) ) 160*160*140 








11 


0104 


70 


GO TO (80*90*100*110) *LI 








11 


0105 


80 


L ( 1 )=L<1)-1 








11 


0106 




K = 1 1 








11 


0107 




GO TO 120 








11 


0108 


90 


L ( 2 ) =L ( 2 ) -1 








11 


0109 




K= 1 9 








11 


0110 




IF(I.EO.NS) GO TO 120 








11 


0111 




J1=I-L ( 1 ) 








11 


0112 




J2=L (2) 








11 


0113 




IF ( J1 *GT . J2 ) GO TO 120 








11 


0114 




DO 98 J=J 1 * J2 








11 


0115 




J3=J*1 








11 


0116 




DO 92 N= 1 * 2 1 








11 


0117 



n o 



114 



92 VV ( N * J ) =VV ( N * J3 ) 11 

DO 96 M=1 * 6 1 1 

DO 94 N=l»6 11 

94 W(M*N* J)=W(M*N* J3) 11 

DO 95 N= 1 ♦ 1 0 11 

95 XM(M*N*J)=XM(M*N*J3) 11 

96 CONTINUE 11 

9fl CONTINUE 11 

GO TO 120 11 

100 L ( 3 ) =L ( 3 ) -1 11 

K = 7 1 1 

GO TO 120 11 

110 L (4) =L (4) -1 11 

K = 3 1 1 

120 IF(I.EO.NS) GO TO 130 11 

J1=I 11 

J2=NS-1 11 

DO 129 J=J1*J2 11 

J3=J*1 11 

DO 121 M=1 ♦ 80 11 

121 A ( M * J ) =A ( M * J3 ) 11 

DO 122 M=l*99 11 

122 B(M* J)=B(M* J3) 11 

IF (L(J^99) .EQ.4 ) GO TO 126 11 

DO 125 M = 1 * 6 11 

DO 123 N=h6 11 

123 Z (M*N*J)=Z(M*N*J3) 11 

DO 124 N=l*10 11 

124 XL <M*N* J)=XL (M*N* J3) 11 

125 CONTINUE 11 

GO TO 128 11 

126 DO 127 M= 1 * 2 1 11 

127 G(M* J)=G(M* J3) 11 

128 L(J 4> 99)=L(J3*99) 11 

L( J*50)=L< J3^50)-K 11 

129 CONTINUE 11 

130 IF (L ( S ) .GT.O) GO To 135 11 

IF ( I -NS ) 140*160*140 11 

135 L(NS*50)=L(NS*51)-K 11 

140 J1 =L ( I ♦BO ) ♦K 11 

J2=L (31) 11 

DO 150 J=J1*J2 11 

M = J-K 11 

Y(M)aY(J) 11 

150 Q(M)=Q(J) 11 

160 L ( 31 ) =L ( 31 ) -K 11 

J1 =L ( 49 ) 11 

DO 180 J=1*J1 11 

IF(EG( J) .E0.B0(2) .OR.EG( J) .EO.BO(3) ) GO TO 175 11 

IF ( EG ( J) .NE.BO(7) .AND.EG( J) .NE.B0<8) ) GO TO 180 11 

IF ( LG3 { J ) *GT* I ) LG3 ( J ) =LG3 ( J) - 1 11 

GO TO 180 11 

175 IF(LG1(J).LE.(L(I*50)*K)> GO TO 180 11 

LG1 ( J)=LG1 ( J)-K 11 

LG2(J)=LG2(J)-K 11 

180 CONTINUE 11 

TO 220 — * STORE THE PRESENT VALUES OF THE Y AND 0 ARRAYS AND OF 11 
THE CURRENTS OF THE DISTRIBUTION TRANSFORMES TO THE MAIN BUS. 11 

200 L ( 36 ) =1 11 



0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 
0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 
0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 
0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 
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NN=l (31 > 


11 


0177 


DO 210 N=lfNN 


11 


0178 


YY(N)=Y(N) 


11 


0179 


GG(N)=G(N> 


11 


0180 


IF(L(4) .LE.O) RETURN 


11 


0181 


J1 =L ( 1 ) ♦L(2) *L(3) ♦ 1 


11 


0182 


J2= J 1 ♦L (4) - 1 


11 


0183 


DO 220 N=JltJ2 


11 


0184 


BB ( 1 t N) =B ( 1 »N) 


11 


0185 


BB(2.N)=B(2,N) 


11 


0186 


BB ( 3 • N ) =B ( 3 f N ) 


11 


0187 


RETURN 


11 


0188 


END 


11 


0189 



o n 
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SUBROUTINE 0 1 SCON 




12 


0000 




DISCONNECT GENERATORS FROM THE BUSES OF THE MG 


SETS WHEN THE RE- 12 


0001 




SPECTIVE PHASE CURRENTS ARE ZERO. 


12 


0002 




COMMON A.B.BO.C.CD.O.EG.EP.F 


*G*GB*Q*VV»M*X»XL»XM*Y«Z*L*LG1 .LG2. LG3 12 


0003 




1.LP1 .LP2.LP3. TITLE. HEAD 




12 


0004 




DIMENSION A(60. 35) .0(99.35) . 


BO (8) . C (50 ) .CD (3.4) 


♦D ( 1 20 ) * EG ( 50 ) . EP ( 51 2 i 


0005 




10).F(316).G(21.35).GB(3.4.9) 


.0(316) .VV(21»9) * W ( 6 * 6*9 ) .XL (6.10.35) .12 < 


0006 




2XM(6.10.9).Y(316).Z(6»6.3S>. 


L ( 1 34 ) .LG1 (50) .LG2 (50 ) .LG3(50) .LP1 (50) 12 ' 


0007 




3. LP2 (50 ) .LP3 (50) .TITLE (39) .HEAD (39) 


12 i 


0008 




DIMENSION YY ( 3 1 6 ) t QQ (316) 




12 l 


0009 




N 1 = L ( 1 ) ♦ 1 




12 


0010 




N2=N1 ♦L (2) -1 




12 


0011 




I =N 1 




12 


0012 


1 


IF(B(92*I) .LE.0.0) GO TO 4 




12 


0013 




B { 92» 1 ) =0 • 0 




12 


0014 




K=I 




12 


0015 




DISCONNECT PHASE A. 




12 


0016 


2 


B ( 95 ♦ K ) = 1 0 • 0 




12 


0017 


3 


Y { J ) =0 • 0 




12 


0018 




0{ J) =0.0 




12 


0019 




DETERMINE IF ALL PHASES ARE 


DISCONNECTED. 


12 


0020 




IF(B(95tK).LE.O.O.OR.B(96»K) 


. LE.0.0. OR. B(97.K) . 


LE.0.0) GO TO 22 12 


0021 




A ( 72 *K ) =1 00 • 0 




12 


0022 




GO TO 60 




12 


0023 


4 


IF (B (93 t I ) .LE.0.0) GO TO 6 




12 


0024 




B(93,I)=0.0 




12 


0025 




K= I 




12 


0026 




DISCONNECT PHASE B. 




12 


0027 


5 


B ( 96tK ) =10.0 




12 


0028 




GO TO 3 




12 


0029 


6 


IF (B(94. I ) .LE.0.0) GO TO 10 




12 


0030 




B { 94 « I ) =0 • 0 




12 


0031 




K= I 




12 


0032 




DISCONNECT PHASE C. 




12 


0033 


7 


B ( 97 *K ) = 1 0 • 0 




12 


0034 




GO TO 3 




12 


0035 


10 


IF(I.GE.N2) GO TO 11 




12 


0036 




1 = 1*1 




12 


0037 




Go TO 1 




12 


0038 




TO 20— t DETERMINE GENERATOR 


TO BE DISCONNECTED 


. 12 


0039 


11 


DO 13 I =N 1 ♦ N2 




12 


0040 




IF < A ( 69t I ) #GE. 0 • 0 ) GO TO 13 




12 


0041 




IF ( X .LT • A ( 72 ♦ I ) ) GO TO 13 




12 


0042 




K = I 




12 


0043 




GO TO 20 




12 


0044 


13 


CONTINUE 




12 


0045 




GO TO 60 




12 


0046 


20 


B (98 *K ) =K 




12 


0047 


22 


IF(B(95tK) .GT.0.0) GO TO 35 




12 


0048 




TO 25— t DETERMINE IF PHASE 


A SHOULD BE DISCONNECTED. 12 


0049 




J=L (K *50 ) ♦ 8 




12 


0050 


25 


IFCYCJ)*YYCJ) ) 26*2.35 




12 


0051 


26 


B(92.K)=10.0 




12 


0052 




TO ABOVE 35—. BACKSTEP TO INTEGRATE TO ZERO CURRENT. 12 


0053 


27 


X=X-D<31) 




12 


0054 




D(31)=D(31)*YY(J)/(YY(J)-Y(J) ) 


12 


0055 




NT=L (31 ) 




12 


0056 




DO 30 1=1 tNT 




12 


0057 




Y ( I ) =YY ( I ) 




12 


0058 
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30 


0(1) =00(1) 










12 


0059 




L ( 36 > =2 










12 


0060 




RETURN 










12 


0061 


35 


IF (B ( 96.K > .GT.0.0) GO TO 40 










12 


0062 




TO 36—. DETERMINE IF PHASE 


B 


SHOULD 


be 


disconnected. 


12 


0063 




J=L < K*50 ) *9 










12 


0064 


36 


IF(Y(J)*YY(J) > 38.5.40 










12 


0065 


38 


B(93.K)=10.0 










12 


0066 




GO TO 27 










12 


0067 


40 


IF (8(97. K) .GT.0.0) GO TO 60 










12 


0068 




TO 48 — . DETERMINE IF PHASE 


C 


SHOULD 


BE 


disconnected. 


12 


0069 




J=L (K*50 ) ♦ 1 0 










12 


0070 


48 


IF ( Y ( J) * YY ( J) ) 50.7,60 










12 


0071 


50 


B(94,K>=10.0 










12 


0072 




GO TO 27 










12 


0073 




STORE THE PRESENT VALUES OF 


THE Y AND 


0 


ARRAYS. 


12 


0074 


60 


NT=L (31 ) 










12 


0075 




DO 61 1=1, NT 










12 


0076 




Y Y < I ) =Y ( I ) 










12 


0077 


61 


00 < I ) =0 ( I ) 










12 


0078 




L ( 36) =1 










12 


0079 




RETURN 










12 


0080 




END 










12 


0081 



on no 
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SUBROUTINE VMAX 


13 


0000 




COMPUTE THE PERCENT ERRORS OF THE PEAKS AND FREQUENCIES OF THE 13 


0001 




LINE-TO-LINE VOLTAGES OF THE MAIN BUS. 13 


0002 




COMMON A.B.RO.C.CD.D.EG.EP.F . G , GB , Q 


.VV.W.X.XL.XM.Y.Z.L.LGl .LG2.LG3 13 


0003 




1 .LP1 .LP2.LP3.TITLE.HEAD 


13 


0004 




DIMENSION A (80.35) ,8 (99.35) , BO (8) ,C (50) .CD (3.4) *0(120) .EG (50) ,EP (513 < 


0005 




10) ,F (316) ,G (21.35) .GB(3,4,9),Q(316) 


. VV (21.9) .W(6.6.9) .XL(6. 10.35) . 13 < 


0006 




2XM (6*10*9) .Y (316) .Z (6.6.35) ,L( 134) . 


LGl (50) ♦ LG2 (50 ) .LG3(50) .LPl (50)13 < 


0007 




3*LP2(50) *LP3(50) .TITLE (39) .HEAD (39) 


13 i 


0008 




DIMENSION V (21 ) 


13 


0009 




TO ABOVE 16—. SET CONTROLS FOR SPECIAL COMPUTATIONS DURING BUS 13 


0010 




FAULTS. 


13 


0011 




IF (X - C ( 9 ) ) 16*1.1 


13 


0012 


1 


IF (X - C ( 9 ) - 0(31) > 2.2.8 


13 


0013 


2 


IF (L ( 7 ) ) 16.16.3 


13 


0014 


3 


IF (L ( 7 ) - 3) 4.5.7 


13 


0015 


4 


IF ( L C 7 > - 2) 16.7.7 


13 


0016 


5 


V ( 21 ) = 10.0 


13 


0017 




V { 20 ) = 10.0 


13 


0018 


7 


V ( 1 9 ) = 10.0 


13 


0019 




GO TO 16 


13 


0020 


R 


IF (X - C ( 1 0 ) ) 16.9.9 


13 


0021 


9 


IF (X - C ( 1 0 ) - D ( 31 ) ) 10.10.16 


13 


0022 


10 


IF (L C 7 > ) 16.16.11 


13 


0023 


11 


IF (L ( 7 ) - 3) 12.13.15 


13 


0024 


12 


IF (L ( 7 ) - 2) 16.15.15 


13 


0025 


13 


L ( 46 > = 0 


13 


0026 




GO TO 16 


13 


0027 


15 


V ( 1 3 ) = 0.0 


13 


0028 




V ( 1 6) = 0.0 


13 


0029 




V ( 1 9 ) = 0.0 


13 


0030 




V ( 6 ) = 0.0 


13 


0031 


16 


IF ( L ( 46 ) ) 17.17.19 


13 


0032 




TO 18 — . SET THE ARRAY V TO ZERO. 


13 


0033 


17 


L (46 ) = 10 


13 


0034 




<VJ 

*• 

n 

M 

CD 

O 

O 


13 


0035 


18 


V(I> = 0.0 


13 


0036 


19 


IF ( D ( 31 ) - 0.1*C(1>) 37.20.20 


13 


0037 




TO 21 — . TRANSFER POINTS. 


13 


0030 


20 


V ( 1 > = V ( 2 ) 


13 


0039 




V ( 2 ) = V (3) 


13 


0040 




V (4) = V (5) 


13 


0041 




V (5 ) = V (6) 


13 


0042 




V ( 7 ) = V (8 ) 


13 


0043 




V (8 ) = V (9 ) 


13 


0044 




V ( 1 0 > = V ( 1 1 ) 


13 


0045 




V ( 1 1 ) = V ( 1 2) 


13 


0046 




V ( 3 ) = X 


13 


0047 




V (6) = D ( 38 > 


13 


0048 




V ( 9 ) = D ( 39 ) 


13 


0049 


21 


V ( 1 2 > = D ( 40 ) 


13 


0050 




DO 35 1=1.3 


13 


0051 




IF ( V ( I ♦ 1 8 ) ) 23.23,22 


13 


0052 




TO ABOVE 23 — , SPECIAL COMPUTATIONS 


DURING BUS FAULTS. 13 


0053 


22 


J = 2*1 ♦ 5 


13 


0054 




D ( J ) = -100.0 


13 


0055 




D ( J* 1 ) = -100.0 


13 


0056 




D ( I ♦ 1 2) = -100.0 


13 


0057 




GO TO 35 


13 


0058 
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23 


J = 3*1 ♦ 3 




13 


0059 




J1=J-1 




13 


0060 




TO 29—, COMPUTATION OF PERCENT FREQUENCY ERRORS. 




13 


0061 




IF (V(J)> 25.24.25 




13 


0062 


24 


XE = V ( 3 ) 




13 


0063 




GO TO 27 




13 


0064 


25 


IF ( V < J) *V ( J1 > ) 26.30.30 




13 


0065 


26 


XE = V ( 2 ) - V ( J 1 ) * ( V ( 3 ) - V ( 2 ) ) / < V ( J) - V(J1>) 




13 


0066 


27 


J2 = I ♦ 12 




13 


0067 




IF < V ( J2 ) ) 29,29,23 




13 


0068 


2ft 


0(J2) = 0 .5/ ( XE - V< J2) ) 




13 


0069 




0(2) = 0 ( J2 ) /0 .6 - 100.0 




13 


0070 




D(J2) = 0(2) 




13 


0071 


29 


V ( J2 ) = XE 




13 


0072 




TO 35—, COMPUTATION OF PERCENT ERRORS OF PEAKS. 




13 


0073 


30 


J2 = I ♦ 15 




13 


0074 




V ( J2 ) = V < J2 ) ♦ 1.0 




13 


0075 




IF ( V ( J2 ) - 3.0) 35,31,31 




13 


0076 


31 


J? = J - 2 




13 


0077 




IF ((V(J1) - V(J2) )*(V(J1)-V(J) ) ) 35.32,32 




13 


0078 


3? 


W1 = V ( J2 ) * ( V ( 3 ) - V ( 2 ) ) 




13 


0079 




W2 = V ( J1 ) * ( V ( 1 ) - V ( 3 ) ) 




13 


0080 




W3 = V ( J) • ( V ( 2) - V ( 1 ) ) 




13 


0081 




TE1 = Wl* (V(3) *V (2) ) 




13 


0082 




TE2 = W2* ( V ( 1 ) » V ( 3 ) ) 




13 


0083 




TE3 = W3* ( V (2) *V( 1 ) ) 




13 


0084 




TEA = W1 *W2*W3 




13 


0085 




XE = 0.5*(TE1*TE2*TE3)/TE4 




13 


0086 




YE = V ( J2 ) * ( XE - V(2))*(XE - V ( 3 ) ) / ( V ( 1 ) - V(2))/(V(1) 


- V ( 3 ) ) ♦ 


13 


0087 




1 V(J1)»(XE - V ( 1 ) ) * ( XE - V ( 3) ) / ( V ( 2 ) - V ( 1 ) ) / ( V ( 2 ) -V ( 3) ) 


♦ V(J)* 


13 


0088 




2 (XE - V(1))«(XE - V ( 2 ) ) / ( V ( 3) - V ( 1 ) )/(V(3)-V(2) ) 




13 


0089 




IF(YE-V(J)> 33,34,34 




13 


0090 


33 


J = 2*1*6 




13 


0091 




0(1) =-100.0* <YE/C(2) ♦ 1.0) 




13 


0092 




D(j) = 0(1) 




13 


0093 




GO TO 35 




13 


0094 


34 


J = 2*1 ♦ 5 




13 


0095 




D ( 1 ) = 1 00 • 0* ( YE/C ( 2 ) - 1.0) 




13 


0096 




0 ( J ) = 0(1) 




13 


0097 


35 


CONTINUE 




13 


0098 




IF ( V ( 21 ) ) 37,37.36 




13 


0099 




SPECIAL COMPUTATION DURING THREE PHASE BUS FAULT. 




13 


0100 


36 


0(1) = -100.0 




13 


0101 




0(2) = -100.0 




13 


0102 


37 


RETURN 




13 


0103 




ENO 




13 


0104 
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SUBROUTINE VMAXGB 








14 


0000 




COMPUTE THE PERCENT ERRORS OF THE 


PEAKS AND 


FREQUENCIES OF 


THE 


14 


0001 




L INE-TO-L INE VOLTAGES OF THE BUSES 


OF THE MG 


SETS. 




14 


0002 




COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB. 


Q.VV.W.X.XL.XM.Y.Z.L.LGl .LG2.L63 


14 


0003 




1 ,LP1,LP2,LP3. TITLE. HEAD 








14 


0004 




DIMENSION A (80,35) ,R(99,3S> ,80(8 > » 


C ( 50 ) *CD ( 3 


* 4 ) *D( 120) * EG ( SO ) ♦ EP ( S 1 4 i 


OOOS 




10>»F(316>.G(21,3S),GB(3,4»9),Q(316),VV<21,9> 


,W(6,6,9) ,XL(6, 10.35) , 


14 1 


0006 


2XM (6*10*9) *Y(316) *Z(6*6*3S) *L( 134) 


*LG1 (SO) * LG2 (SO ) *LG3(S0) * 


LP1 (SO) 14 l 


0007 




3.LP2 (50 ) .LP3 (50 ) .TITLE (39) .HEAD (39) 






14 1 


0008 




L2=L ( 2 ) 








14 


0009 




DO 100 K=1*L2 








14 


0010 




N=K^L ( 1 ) 








14 


0011 




IF(A(69*N) .LT.0.0) GO TO 100 








14 


0012 




IF(X.LT.A(7S*N) ) GO TO 16 








14 


0013 




TO ABOVE 16—. SET CONTROLS FOR SPECIAL COMPUTATIONS DURING 


BUS 


14 


0014 




FAULTS. 








14 


001S 




M=IFIX(A(77.N> *0.00000001) 








14 


0016 




IF (X.GT. (A(75»N) *D ( 31 ) ) ) GO TO 8 








14 


0017 




IF(M.LE.O) GO TO 16 








14 


0018 




IF ( M-3 ) 4.S.7 








14 


0019 


4 


IF ( M-2 ) 16.7.7 








14 


0020 


5 


o 

• 

o 

II 

#■ 

OJ 

> 

> 








14 


0021 




VV(20.K)=10.0 








14 


0022 


7 


VV(19*K)=10.0 








14 


0023 




GO TO 16 








14 


0024 


8 


IF(X.GT.(A(76.N) *0(31) ) ) GO TO 16 








14 


002S 




IF(M.LE.O) GO TO 16 








14 


0026 




IF ( M-3 ) 12. 13. IS 








14 


0027 


12 


IF (M-2) 16.15.15 








14 


0028 


13 


B(99,N)=0.0 








14 


0029 




GO TO 16 








14 


0030 


15 


VV ( 1 3.K ) =0 .0 








14 


0031 




VV(16.K)=0.0 








14 


0032 




VV ( 1 9, K ) =0 . 0 








14 


0033 




VV (6.K) =0.0 








14 


0034 


16 


IF ( B ( 99 ,N) .GT.0.0) GO TO 19 








14 


003S 




TO 18—. SET THE ARRAY VV TO ZERO. 








14 


0036 




DO 18 M=1 .21 








14 


0037 


18 


VV ( M .K ) =0 . 0 








14 


0038 




B(99.N)=10.0 








14 


0039 


19 


IF(D(31).LT.(0.1*C(1))) GO TO 100 








14 


0040 




TO 21 — . TRANSFER POINTS. 








14 


0041 




DO 20 M = 1 , 1 1 








14 


0042 




IF (M.EQ.3.0R.M.EQ.6.0R.M.EQ.9) GO 


TO 20 






14 


0043 




VV (M.K) =VV t M ♦ 1 ,K> 








14 


0044 


20 


CONTINUE 








14 


004S 




VV(3.K)=X 








14 


0046 




VV ( 6.K ) =B ( 77 .N) 








14 


0047 




VV(9.K)=B(78,N) 








14 


0048 


21 


VV ( 1 2 » K ) =B ( 79 *N ) 








14 


0049 




DO 3S 1=1,3 








14 


ooso 




IF(VV(I*18,K) .LE.0.0) GO TO 23 








14 


0051 




TO ABOVE 23—. SPECIAL COMPUTATIONS DURING BUS FAULTS. 




14 


0052 




J=2* 1*63 








14 


0 0S3 




B(J.N) =-100.0 








14 


0 0S4 




B(J*1»N) =-100.0 








14 


ooss 




B(I*70.N)=-100.0 








14 


0 0S6 




GO TO 3S 








14 


0057 


23 


J=3* I *3 








14 


00S8 
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J1=J-1 14 

C TO 29-- « COMPUTATION OF PERCENT FREQUENCY ERRORS. 14 

IF(VV< J*K> .NE.0.0) GO TO 25 14 

XE=VV ( 3»K ) 14 

GO TO 27 14 

25 IF ( (VV(JfK)*VV(Jl*K) ) .GE.0.0) GO TO 30 14 

XE=VV(2tK)-VV<Jl *K)*<VV<3*K)-VV(2fK> ) / < VV < J ♦ K > - V V < J 1 *K> ) 14 

27 J2= I ♦ 1 2 14 

IF<VV< J2*K) .LE.0.0) GO TO 29 14 

B(64»N)=-100.0^0.5/(0.6*(XE-VV( J2fK) ) ) 14 

B< W0*N>=B(64tN> 14 

29 VV ( J2 t K ) =XE 14 

C TO 35— ♦ COMPUTATION OF PERCENT ERRORS OF PEAKS. 14 

30 J2= I ♦ 1 5 14 

VV( J2fK)=VV( J2fK) ♦l.O 14 

IF(VV( J2fK) .LT.3.0) GO TO 35 14 

J2= J-2 14 

IF ( ( ( VV ( J 1 *K ) — VV { J2 • K ) )*(VV(Jl»K)— VV(JfK) ) ) .LT.0.0) GO TO 35 14 

W1=VV( J2»K)*( VV(3»K)-VV(2fK) ) 14 

W?=VV < J 1 * K ) * ( V V ( 1 tK)-VV(3*K) ) 14 

W3=VV( J«K)*(VV(2tK)-VV(I*K) ) 14 

TE1=W1* (VV (3fK) ♦VV (?*K) ) 14 

TE2=W2* (VV (1 ♦ K) ♦VV (3*K) ) 14 

TE3=W3*(VV (2tK)*VV(l«K) ) 14 

TE4=W1^W2>W3 14 

XE=0.5*(TE1>TE2^TE3)/TE4 14 

YE=VV (J2*K)*(XE-VV (?»K) ) * ( XE-V V ( 3 * K ) ) / < VV ( 1 ♦ K ) -VV ( 2 * K ) )/<VV(l*K>- 14 

1 VV ( 3 *K ) )*VV(Jl'K)*(XE-VV(lfK> )«(XE-VV(3«K) ) /(VV ( 2 ) -VV < 1 ♦ K ) )/(VV( 14 

22 ♦ K ) -VV ( 3 * K ) ) ♦ VV { J ♦ K ) # (XE-VV ( 1 ♦ K ) ) * ( XE-VV ( 2 ♦ K ) ) / < VV ( 3 ♦ K ) -VV ( 1 . K ) )/ 14 
3(VV(3«K)-VV(2tK) ) 14 

IF (YE.GE.VV(JfK) ) GO TO 33 14 

J=2*I*64 14 

B(63fN)=-100.0*(YE/A(68fN) ♦l.O) 14 

GO TO 34 14 

33 J=2* 1*63 14 

B < 63* N> =100.0* (YE/A <68,N>-1 .0) 14 

34 B ( J *N ) =B ( 63 ♦ N ) 14 

35 CONTINUE 14 

IF ( V V ( 2 1 « K ) .LE.0.0) GO TO 100 14 

C SPECIAL COMPUTATION DURING THREE PHASE BUS FAULTS, 14 

B ( 63*N) =-l 00 • 0 14 

B( 64 *N)=- 100.0 14 

100 CONTINUE 14 

RETURN 14 

END 14 



0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 



o o o 
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SUBROUTINE TRAN 15 0000 

COMPUTE THE PHASE AND LINE-TO-LINE VOLTAGES AT THE SECONDARIES OE 15 0001 
DISTRIBUTION TRANSFORMERS. AND THE AVERAGE THREE-PHASE POWERS AND 15 0002 
THE PEAK REACTIVE POWERS PER PHASE OF THEIR LOADS. 15 0003 

COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.O.VV.W.X.XL.XM.Y.Z.L.LG1 .LG2.LG3 15 0004 
1.LP1.LP2.LP3, TITLE. HEAD 15 0005 

DIMENSION A (80. 35) .B (99.35) .BO (8) .C(50) .CD (3. A) .0(120) .EG (50) .EP(515 0006 
10) ,F (316) ,G (21.35) .GB (3.4,9) ,0 ( 31 6) . VV (21 ,9) . W (6. 6.9) , XL ( 6 , 10 .35 ) . 15 0007 
2XM(6.10.9)«Y(316)*Z(6»6*35).L(134) .LG1 (50 > .LG2 (50 ) .LG3 (50 ) .LP1 (50)15 0008 
3,LP2(50).LP3(50).TITLE(39).HEAD(39) 15 0009 

N 1 * L ( 1 ) ♦ L ( 2) ♦ L ( 3) *1 15 0010 

N2 = N1 ♦ L (4) - 1 15 0011 

DO 10 I = N1.N2 15 0012 

L8 = IFIX (A(10»I) ♦ 0.00000001) 15 0013 

J = L ( I *50 ) 15 0014 

J1 = J*1 15 0015 

J2 a J*2 15 0016 

IF ( X.LT.A(8,I) . OR . X.GT . A (9, I ) ) GO TO 1 15 0017 

IF (L8 .LE. 3 ) GO TO 1 15 0018 

B (4, I ) = 0.5*(B(34,I)»(F(J)*F(J1))*B(31,I)*(Y(J)*Y(J1))) 15 0019 

B(5.I)=B(4,I) 15 0020 

B(6.I)=B(34,I)«F(J2)*B(31.I)»Y(J2) 15 0021 

GO TO 2 15 0022 

1 B(4.I)=B(34.I)*F(J).B(31.I)«Y(J) 15 0023 

B (5, I ) = B(35»I)*F(J1)*B(32,I)*Y(J1) 15 0024 

B (6. I ) = B(36»I)*F(J2)*B(33,I)*Y(J2) 15 0025 

2 B ( 7, I ) = B (4, I ) -B (5, I ) 15 0026 

B (8, I ) = B (5. I ) - B (6, I ) 15 0027 

B (9. I ) = B (6, I ) - B (4, I ) 15 0028 

B(IO.I) = 0.001M Y(J)*B(4»I)*Y(J1)*B(5»I).Y(J2)*B(6,I)) 15 0029 

B(ll.I) = 1 . 9245E-4* ( Y ( J) *B (8, I ) ♦ Y ( J1 ) »B ( 9. I ) ♦ Y ( J2) «B ( 7. I ) ) 15 0030 

10 CONTINUE 15 0031 

RETURN 15 0032 

END 15 0033 



on n nn 



123 





SUBROUTINE VMAXTR 








16 


0000 




COMPUTE THE PERCENT ERRORS OF THE PEAKS 


AND 


FREQUENCIES OF THE 


16 


0001 




LINE-TO-LINE voltages AT THE SECONDARIES OF 


DISTRIBUTION TRANS- 


16 


0002 




FORMERS 








16 


0003 




COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV. 


W.X.XL.XM.Y.Z. 


L .LG 1 . LG2 * LG3 


16 


0004 




1. LP1. LP2.LP3. TITLE. HEAO 








16 


0005 




DIMENSION A ( 80. 35 ) »B (99.35) .60(8) .C (50) 


.CD ( 3 


•4) f D ( 1 20 ) .EG (50 ) .EP(516 


0006 




10) .F(316) .G (21.35) .GB(3.A,9) .0(316) .VV(2I,9) 


. W ( 6 ♦ 6 ♦ 9 ) 


.XL<6. 10.35) ♦ 


16 


0007 




2XM(6. 10.9) . Y (316) .Z (6.6.35) .L< 134) .LG1 (50) .LG2(50) .LG3(50) .LP1 (50)16 


0008 




3,LP2(50) »LP3(50) . TITLE ( 39) , HE AD <39 ) 








16 


0009 




N 1 = L ( 1 ) ♦ L ( 2 ) ♦ L ( 3 ) ♦ 1 








16 


0010 




N2 = N1 ♦ L ( A ) - 1 








16 


0011 




DO 200 I = Nl. N2 








16 


0012 




IF ( ( X - A(8,I)).LT. 0.0 ) GO TO 80 








16 


0013 




TO ABOVE 80—. SET CONTROLS FOR SPECIAL 


COMPUTATIONS 


DURING FAULTS 


16 


0014 




AT SECONDARIES. 








16 


0015 




L8 * IFIX ( A(10.I) ♦ 0.00000001 ) 








16 


0016 




IF ( ( X-A (8.1) - D ( 31 ) ) .GT. 0.0 ) GO 


TO 40 






16 


0017 




IF ( L8 .LE. 0 ) GO TO 80 








16 


0018 




IF ( L8 - 3 ) 10. 20. 30 








16 


0019 


10 


IF ( L8 .GE. 2 ) GO TO 30 








16 


0020 




GO TO 80 








16 


0021 


20 


G ( 21 » I ) = 10.0 








16 


0022 




G ( 20 . I ) = 10.0 








16 


0023 


30 


G ( 1 9, I ) = 10.0 








16 


0024 




GO TO 80 








16 


0025 


40 


IF ( ( X-A (9.1)) .LT. 0.0 ) GO TO 80 








16 


0026 




IF ( (X- A ( 9 . I ) - 0(31)) .GT. 0.0 ) GO 


TO 80 






16 


0027 




IF ( L8 .LE. 0 ) GO TO 80 








16 


0028 




IF ( L8 - 3 ) 50. 60. 70 








16 


0029 


50 


IF ( L8 .GE. 2 ) GO TO 70 








16 


0030 


60 


A (20 » I ) = 0.0 








16 


0031 




GO TO 80 








16 


0032 


70 


G ( 1 3 . I ) = 0.0 








16 


0033 




G ( 1 6 . I ) = 0.0 








16 


0034 




G ( 1 9, I ) = 0.0 








16 


0035 




G (6* I ) = 0.0 








16 


0036 


80 


IF ( A ( 20 » I ) .GT. 0.0 ) GO TO 100 








16 


0037 




TO 90—. SET THE ARRAY G TO ZERO. 








16 


0038 




A (20. I ) = 10.0 








16 


0039 




DO 90 J = 1.21 








16 


0040 




G(J.I) = 0.0 








16 


0041 


90 


CONTINUE 








16 


0042 


100 


IF ( ( D ( 31 ) - 0 • 1 *C ( 1 ) ) .LT. 0.0 ) GO TO 200 






16 


0043 




TO 120 — . TRANSFER POINTS. 








16 


0044 




DO 110 J = 1.12.3 








16 


0045 




J1 = JM 








16 


0046 




G ( J * I ) = G(J1. I) 








16 


0047 




G(jnn = G(jniti) 








16 


0048 


no 


CONTINUE 








16 


0049 




G ( 3 ♦ I ) = X 








16 


0050 




DO 120 J = 2.4 








16 


0051 




G(3*JfI) = B(J*5.I) 








16 


0052 


120 


CONTINUE 








16 


0053 




DO 190 J = 1.3 








16 


0054 




IF ( G ( J* 1 8 * I ) .LE. 0.0 ) GO TO 130 








16 


0055 




TO ABOVE 130 — . SPECIAL COMPUTATIONS DURING 


FAULTS AT 


SECONDARIES. 


16 


0056 




K = 2«J ♦ 12 








16 


0057 




B(K.I) = -100.0 








16 


0058 



124 







6 (K* 1 » I ) = -100.0 


16 


0059 






6 ( J. 1 9. I ) = -100.0 


16 


0060 






GO TO 190 


16 


0061 




130 


K = 3* J ♦ 3 


16 


0062 






K1 = K - 1 


16 


0063 


c 




TO 160--. COMPUTATION OF PERCENT FREQUENCY ERRORS. 


16 


0064 






IF ( G(K,I) ,NE. 0.0 ) GO TO 1A0 


16 


0065 






XE * G(3» I ) 


16 


0066 






GO TO 150 


16 


0067 




140 


IF ( (G(K.I)*G(K1,I)) ,GE. 0.0 ) GO TO 170 


16 


0068 






XE = G ( 2 » I ) - G(K1 , I)*(G(3, I) - G ( 2, I ) ) / ( G ( K. I ) - G(Kl.I)) 


16 


0069 




150 


K2 a J ♦ 12 


16 


0070 






IF ( G (K2. I ) .LE. 0.0 > GO TO 160 


16 


0071 






B(J*19,I) = 0.5/IXE - G (K2» I ) ) 


16 


0072 






6(13.1) = B(J*19,I)/0. 6-100.0 


16 


0073 






B ( J* 19 . 1 ) = 6(13.1) 


16 


0074 




160 


G (K2. I ) = XE 


16 


0075 


c 




TO 190 — . COMPUTATION OF PERCENT ERRORS OF PEAKS. 


16 


0076 




170 


K2 2 J ♦ 15 


16 


0077 






GIK2.I) = G ( K2 » I ) ♦ 1.0 


16 


0078 






IF (( G (K2, 1 ) - 3.0) .LT. 0.0 ) GO TO 190 


16 


0079 






K2 = K - 2 


16 


0080 






IF { ((G(K1.I) - G(K2»I))*(G(K1,I> - G (K. I > ) ) .LT. 0.0 ) GO TO 


190 16 


0081 






G1 = G (K2. I ) * (G ( 3. I ) - G ( 2, I ) ) 


16 


0082 






G2 = G(K1 ,I)*(G(1 . I) - G ( 3. I ) ) 


16 


0083 






G3 = G(K, I) *(G(2. I) - G(l.I)) 


16 


0084 






TE1 = Gl* (G(3. I) ♦ G ( 2. I ) ) 


16 


0085 






TE2 = G2*(G(1,I> ♦ G(3.I) ) 


16 


0086 






TE3 = G3*(G(2.I> ♦ G(l.I)) 


16 


0087 






TEA = Gl ♦ G2 ♦ G3 


16 


0088 






XE = 0 .5* (TE1 ♦ TE2 ♦ TE3) /TEA 


16 


0089 






YE = G(K2.I)*(XE - G ( 2. I ) ) * ( XE - G ( 3. I ) ) / (G ( 1 . I ) - G(2.I))/ 


16 


0090 






1 (G(l.I) - G ( 3. I ) ) ♦ G ( K 1 « I ) * ( XE - G ( 1 . I ) ) * ( XE - G(3»I>>/ 


16 


0091 






2 (G (2. I ) - G(l.I) )/(G(2»I) - G ( 3. I ) ) ♦ G(K.I)*(XE - G(1,I)) 


16 


0092 






3* (XE - G (2* I ) ) / (G (3, I ) - G(1,I) )/(G(3.I) - G(2.I)) 


16 


0093 






IF (YE.GE. G (K, I ) ) GO TO 100 


16 


0094 






K = 2*J ♦ 13 


16 


0095 






6(12.1) = -100.0*(YE/A(12,I) ♦ 1.0) 


16 


0096 






B(K.I) = 6(12,1) 


16 


0097 






GO TO 190 


16 


0098 




180 


K = 2*J ♦ 12 


16 


0099 






B ( 12, 1 ) = 100.0*(YE/A(12,I) - 1.0) 


16 


0100 






B(K.I) = 6(12.1) 


16 


0101 




190 


CONTINUE 


16 


0102 






IF ( G ( 21 , I ) .LE. 0.0 ) GO TO 200 


16 


0103 


c 




SPECIAL COMPUTATION DURING THREE PHASE FAULTS AT SECONDARIES. 


16 


0104 






B ( 12, 1 ) = -100.0 


16 


0105 






6(13,1) = -100.0 


16 


0106 




200 


CONTINUE 


16 


0107 






RETURN 


16 


0108 






END 


16 


0109 



125 



SUBROUTINE DUPLEX 17 0000 

RETURN 

END 



126 



SUBROUTINE VMAXDR l 0 0000 

RETURN 

END 



no oo ooooooo onoooooooo 
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SUBROUTINE YPRIH2 

THIS IS A MAIN SUBROUTINE IN THE COMPUTATION OF THE DERIVATIVES OF 
THE OEPENOENT VARIABLES OF SUB2. 

IN THIS COMPUTATION, THE VARIOUS COMPONENTS OF THE PLANT ARE TRE- 
ATEO IN THE FOLLOWING ORDER— ROTATING MACHINES ON MAIN BUS, DIS- 
TRIBUTION TRANSFORMERS, COMMERCIAL POWER SYSTEM, OUPLEX REACTOR 
AND HV POWER SUPPLIES, REGULATORS OF GENERATING UNITS, ALTERNATORS 
OF MG SETS AND THEIR REGULATORS, ANO SHAFTS OF MG SETS ANO INDUCT- 
ION MOTORS. 

OURING THIS COMPUTATION, VARIOUS OTHER VARIABLES ARE COMPUTEO, 

SUCH AS BUS VOLTAGES, POWERS, TORQUES, ETC. 

COMMON A , B , BO *C«CD»0,EG»EP,F , G, GB, Q, VV «W*X*XL*XM*Y«Z»L» LG 1 , LG2 , LG3 
1, LP1, LP2,LP3, TITLE, HEAO 
OIMENSION A (80,35) ,B (99,35) ,BO(8> ,C(50) «CD(3«4) ,0(120) *EG(50) ,EP(519 0013 
10) *F(316) ,G(21 ,35) ,GB (3,4,9) ,Q(316) ,VV(21 ,9) ,W (6,6,9) , XL (6, 10, 35) ,19 0014 
2 XM (6*10,9) ,Y (316) ,Z(6,6,35) ,L(134) *LG1 (50) »LG2(50) *LG3 (50) ,LP1 (50) 19 0015 



19 


0000 


19 


0001 


19 


0002 


19 


0003 


19 


0004 


19 


0005 


19 


0006 


19 


0007 


19 


0008 


19 


0009 


19 


0010 


19 


0011 


19 


0012 



3«LP2(50),LP3(50) , TITLE (39) ♦ HE AO (39) 



19 0016 





IF (L ( 33 ) ) 53,1,53 








19 


0017 


1 


NS=L ( 1 ) +L ( 2 ) ♦LO) 








19 


0018 




IF (L ( 2 ) *L (3 ) ) 105,105,100 








19 


0019 




TO 77 — , COMPUTE THE DERIVATIVES OF 


THE WINOING CURRENTS 


OF THE 


19 


0020 




ROTATING MACHINES CONNECTEO TO THE 


MAIN BUS* ANO THE DERIVATIVES 


19 


0021 




OF THE OEPENDENT VARIABLES OF DISTRIBUTION TRANSFORMERS, 


THE COM- 


19 


0022 




MERCIAL POWER SYSTEM ANO THE OUPLEX 


REACTOR ANO HV 


POWER 


SUPPLIES. 


19 


0023 




TO 1 04— * COMPUTE THE ELECTRICAL SPEEOS OF MOTORS* 


THE RERCENT 


19 


0024 




SPEEO ERRORS OF SYNCHRONOUS MOTORS 


ANO THE PERCENT 


SLIPS 


OF 


19 


0025 




INDUCTION MOTORS. 








19 


0026 


100 


00 104 1=1, NS 








19 


0027 




L I=L ( I *99) 








19 0028 




GO TO (104,101,102) ,LI 








19 


0029 


101 


J=L ( I *50 ) *7 








19 


0030 




B ( 5 , I ) = A(15«I)*Y(J) 








19 


0031 




B(4, I) =100.0* (B (5, I 1/377.0-1 .0) 








19 


0032 




GO TO 104 








19 


0033 


102 


J=L < I *50 ) *6 








19 


0034 




B(5»I)=A(7»I)*Y(J) 








19 


0035 




B (4, I ) = 100.0*(1.0-B(5,I)/377.0) 








19 


0036 


104 


CONTINUE 








19 


0037 


105 


IF(NS.LE.O) GO TO 107 








19 


0038 




TO 106—, SET UP THE INDUCTANCE ANO 


( ( IMPEOANCE) ) 


MATRICES OF RO- 


19 


0039 




TATING MACHINES. 








19 


0040 




CALL LM AT 








19 


0041 




CALL IMAT 








19 


0042 


12 


IF ( (L(l ) * L ( 2 ) ) .LE.O) GO TO 107 








19 


0043 




CALL SAT 








19 


0044 


106 


CALL SATEF 








19 


0045 


107 


CALL RLMB 








19 


0046 




TO 111 — , COMPUTE THE CURRENTS OF THE RL LOAD ANO 


OF THE 


TOTAL 


19 


0047 




LOAO OF THE MAIN BUS. 








19 


0048 




DO 108 1=22*24 








19 


0049 




0( I*6>=0.0 








19 


0050 


108 


D ( I ) =0 • 0 








19 


0051 




IF ( NS.LE. 0 ) GO TO 109 








19 


0052 




00 18 1 = 1* NS 








19 


0053 




J=L ( I ♦SO ) 








19 


0054 


16 


0 ( 22 ) =0 ( 22 ) ♦Y ( J ) 








19 


0055 




0(23)=0(23>>Y<JM) 








19 


0056 




0(24) =0(24) ♦ Y ( J*2 ) 








19 


0057 




IF(I-L(1) ) 17*17*18 








19 


0058 



non 



128 



17 


D ( 28 ) =D ( 28 ) ♦ Y ( J) 








19 


0059 




D ( 29 ) =D ( 29 ) ♦Yt J+l) 








19 


0060 




D(30)=0(30) ♦Y <J*2) 








19 


0061 


IB 


CONTINUE 








19 


0062 


109 


IE (L (5) .LE.O) GO TO 19 








19 


0063 




NU=NS^L (4 ) ♦ 1 








19 


0064 




J=L ( NU*50 ) 








19 


0065 




D ( 22 ) =D ( 22 ) ♦Y ( J ) 








19 


0066 




D ( 23 ) =D ( 23 ) ♦Y ( J** 1 ) 








19 


0067 




D ( 24 ) =D ( 24 ) ♦Y ( J^2 ) 








19 


0068 




D(28)=D(28) ♦Y (J) 








19 


0069 




D ( 29 ) =D ( 29 ) ♦Y(JM) 








19 


0070 




D(30) =D(30) ♦Y (J^2) 








19 


0071 


19 


IF (L (6 ) .LE.O) GO TO 110 








19 


0072 




J=L (31) -5 








19 


0073 




D (22) =D (22) ♦ Y ( J) 








19 


0074 




D(23)=D(23) ♦Y (J^l ) 








19 


0075 




D (24 ) =D ( 24 ) ♦ Y (J^2) 








19 


0076 


no 


IF ( L (4 ) .LE.O) GO TO 20 








19 


0077 




N 1 =NS ♦ 1 








19 


0078 




N2 = N 1 ♦L (4 ) - 1 








19 


0079 




DO 111 I = N 1 * N2 








19 


0080 




J=L ( I ♦SO ) 








19 


0081 




B(1*I)=(Y(J*2)-Y(J) ) / A ( 3 * I ) 








19 


0082 




B(2* I)=(Y(J)-Y(J*1) )/A(3*I) 








19 


0083 




8(3*I) = (Y(JM)-Y (J^2) ) /A ( 3 * I ) 








19 


0084 




D(22)=D<22) ♦B(ltl) 








19 


0085 




0(23) =D(23) ♦B(2» I) 








19 


0086 


111 


D(24) =D (24) *8 (3* I ) 








19 


0087 


20 


IF(NS.LE.O) GO TO 112 








19 


0088 




CALL XLMAT 








19 


0089 




CALL TRIAS 








19 


0090 




TO ABOVE 76— ♦ SET UP THE MATRIX CD CONTAINING 


THE COEFFICIENTS OF 


19 


0091 




THE THREE EQUATIONS RELATING THE CURRENT DERIVATIVES 


OF 


THE RL 


19 


0092 




LOAD OF THE MAIN BUS. 








19 


0093 


112 


DO 200 1=1*3 








19 


0094 




DO 200 J= 1*4 








19 


0095 


200 


CD ( I ♦ J ) = 0.0 








19 


0096 




IF(NS.GT.O) CALL CDMACH 








19 


0097 




IF (L (4 ) .GT .0 ) CALL CDTRAN 








19 


0098 




IF (L(5) .GT.O) CALL CDCOMP 








19 


0099 




IF (L(6).GT.O) CALL CDDR 








19 


0100 




IF(X.LT.C(9) .OR.X.GT.C(IO) ) GO TO 306 








19 


0101 




IF (L ( 8 ) - 3) 306*306*304 








19 


0102 




TO 305—* ADJUST MATRIX CD DURING L INE-TO-L INE 


FAULT 


ON 


MAIN BUS. 


19 


0103 


304 


CD ( 2 * 1 ) = CD ( 2* 1 ) ♦ 1.0 ♦ CD ( 1 ♦ 1 ) 








19 


0104 




CD ( 2 ♦ 2 ) = CD ( 2 ♦ 2 ) ♦ 1.0 ♦ CD(1*2) 








19 


0105 




CD ( 2 * 3 ) = CD ( 2 * 3 ) ♦ CD(1*3) 








19 


0106 




CD ( 2 *4 ) = CD ( 2 * 4 ) ♦ CD(1*4) 








19 


0107 




CD ( 3* 3) = CD( 3*3) ♦ 1.0 








19 


0108 




CD ( 1 * 1 ) = D ( 1 9 ) 








19 


0109 




CD ( 1 * 2 ) = -D ( 20 ) 








19 


0110 




CD ( 1 * 3 ) = 0.0 








19 


0111 


305 


CD ( 1 * 4 ) = D ( 1 7 ) *D ( 23 ) - D(16)*D(22) 








19 


0112 




GO TO 76 








19 


0113 


306 


CD ( 1 * 1 ) = CD (1,1) ♦ 1.0 








19 


0114 




CD ( 2 * 2 ) = CD ( 2 ♦ 2 ) ♦ 1.0 








19 


0115 




CD ( 3 * 3 ) = CD ( 3, 3) ♦ 1.0 








19 


0116 


76 


CALL MBSOLV 








19 


0117 



u o uuu 



129 





TO 77—, EVALUATE THE DERIVATIVES. 








19 


0118 




IF (NS.GT .0 > CALL FMACH 








19 


0119 




IF(L(4> .GT.O) CALL FTRAN 








19 


0120 




IF (L(S).GT.O) CALL FCOMP 








19 


0121 


77 


IF (L(6).GT.0> CALL FDR 








19 


0122 




TO 78—, COMPUTE THE PHASE AND LINE-TO-LINE 


VOLTAGES OF 


THE 


MAIN 


19 


0123 




BUS. 








19 


0124 




0(35>=D(16)*D(22> ♦D(19>*0<25> 








19 


0125 




0(36 >=D<17) *0(23) ♦D(20)*D<26> 








19 


0126 




0(37) =0 ( 1 8 ) *0 (24 ) »D ( 2 1 )*D(27) 








19 


0127 




D < 38 ) = DOS) - 0(36) 








19 


0128 




0(39) = 0(36) - 0(37) 








19 


0129 


7ft 


D (40 > = 0(37) - 0(35) 








19 


0130 




0 ( 3 ) =0 .0 








19 


0131 




D (4 ) =0 . 0 








19 


0132 




IF (L (S) .LE.O ) GO TO 41 








19 


0133 




TO 79 — , COMPUTE THE AVERAGE THREE-PHASE POWER AND THE 


PEAK 


REACT- 


19 


0134 




IVE POWER PER PHASE OF THE COMMERCIAL POWER 


system* and 


THEIR CON- 


19 


0135 




TRIBUTIONS TO THE LOAD OF THE MAIN BUS. 








19 


0136 




J=L (NU*50 ) 








19 


0137 




0(5) =0.001* (0(35) *Y( J> *0(36) *Y( J*1 ) *0(37) *Y< J*2) ) 






19 


013ft 




0 ( 6 ) = 1 • 9245E— 4* ( Y ( J ) *0 ( 39 )*Y(J*1> *D (40)*Y(J*2)*D(38> > 






19 


0139 




0 ( 3 ) =0 ( 3) *D (5 ) 








19 


0140 


79 


0 (4 ) =0 (4 > *0 (6 ) 








19 


0141 


41 


IFtL(l).GT.O) CALL FREG 








19 


0142 




IF (L(2> .GT.O) CALL YPRIMG 








19 


0143 




IF(NS.GT.O) CALL FMECH 








19 


0144 


53 


L ( 33 > =0 








19 


0145 




RETURN 








19 


0146 




END 








19 


0147 



o o 



130 



SUBROUTINE LMAT 




20 


0000 


SET UP THE INDUCTANCE MATRICES, WITHOUT FIELD SATURATION EFFECTS, 


20 


0001 


OF THE ROTATING MACHINES CONNECTED 


TO THE MAIN BUS. 


20 


0002 


COMMON A,B,B0,C*CD,D*EG,EP,F*G,GB,CI.VV,W.X»XL*XM*Y*Z»L,LG1,LG2,LG3 


20 


0003 


1*LP1*LP2*LP3*TITLE*HEAD 




20 


0004 


DIMENSION A (80, 35) ,B (99,35) ,BO<8> ,C(50) .CD (3*4) ,D(120) ,EG (50 ) ,EP ( 520 


0005 


10) ,F(316) ,G(21,35) ,GB (3,4,9) ,0(316) 


•VV(21«9) *W (6*6*9) fXL(6t 10*35) ♦ 


20 


0006 


2XM(6*10,9),Y(316) ,Z ( 6,6, 35 ) ,L ( 1 34) ♦ 


LG1 (50) *LG2<50) *LG3(50) *LP1 <50)20 


0007 


3,LP2(50) ,LP3(50) , TITLE (39) *HEAD(39> 




20 


0008 


CC=0. 866025404 




20 


0009 


NS=L ( 1 ) *L (2) *L ( 3) 




20 


0010 


DO 10 1=1, NS 




20 


0011 


LI=L ( I *99) 




20 


0012 


GO TO (1,1, 2), LI 




20 


0013 


1 J=L ( I *50 ) *6 




20 


0014 


GO TO 4 




20 


0015 


2 J=L ( I *50 ) *5 




20 


0016 


4 XL(1,1*I)=A(1,I) 




20 


0017 


XL(2,1,I)=-A(2,I) 




20 


00 1 B 


XL(3,1,I)=XL(2,1,I) 




20 


0019 


XL(2,2,I)=XL(1,1,I) 




20 


0020 


XL(3,2,I)=XL(2,1,I) 




20 


0021 


XL(3,3,I)=XL(1,1,I) 




20 


0022 


B ( 19, I ) =COS ( Y ( J) ) 




20 


0023 


B(20,I)=SIN(Y(J) ) 




20 


0024 


Cl =0 .5*0 (19,1) 




20 


0025 


C2=CC*B (19,1) 




20 


0026 


C3=0 .5*B (20,1) 




20 


0027 


C4=CC*B (20,1) 




20 


0028 


B ( 21 , I ) =-Cl -C4 




20 


0029 


8(22,1) =-C3*C2 




20 


0030 


B ( 23, I ) =-Cl *C4 




20 


0031 


B ( 24 , I ) =-C3-C2 




20 


0032 


XL(4,1,I)=-A(4,I)*B(19,I) 




20 


0033 


XL (4,2, I ) =-A (4, I )*B(23, I) 




20 


0034 


XL(4,3,I)=-A(4,I)*B(21,I) 




20 


0035 


GO TO (6,6,5) , L I 




20 


0036 


5 XL (4,4,1) = A (3, I ) 




20 


0037 


XL (5, 1 , I)=A (4, I) *B(20, I ) 




20 


0038 


XL (5, 2, I >=A (4, I) *0(24,1) 




20 


0039 


XL(5,3,I)=A(4,I)*B(22,I) 




20 


0040 


GO TO 8 




20 


0041 


6 XL (4,4, I ) = A(7,I) 




20 


0042 


XL(5,1,I)=-A(5,I)*B(19,I) 




20 


0043 


XL(5,2,I)=-A(5,I)»B(23,I) 




20 


0044 


XL(5,3,I)=-A(5,I)*B(21*I) 




20 


0045 


XL (5,4, I )=A (8, I) 




20 


0046 


XL (5, 5, I) =A (9, I) 




20 


0047 


XL(6»1,I)=A(6,I)*B(20,I) 




20 


0048 


XL(6,2,I)=A(6,I)*B(24,I) 




20 


0049 


XL(6,3,I)=A(6,I)*B(22,I) 




20 


0050 


IF(A(3,I)) 8,8,7 




20 


0051 


TO ABOVE 8, SALIENCY EFFECTS FOR SYNCHRONOUS MACHINES. 


20 


0052 


7 B(25,I)=2.0*B(19,I)*B(19,I)-1.0 




20 


0053 


B(26,I)=2.0*B(19,I)*B(20,I) 




20 


0054 


Cl =0 ,5*B ( 25, I ) 




20 


0055 


C2=CC*B (25,1) 




20 


0056 


C3=0 .5*0 ( 26, I ) 




20 


0057 


C4=CC*B (26,1) 




20 


0058 
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8(27 


fI)=-Cl-C4 






20 


0059 




8(28 


9 I):*-C3*C2 






20 


0060 




8(29 


t I ) =-Cl *C4 






20 


0061 




8(30 


♦I)=-C3-C2 






20 


0062 




XL 1 


tl 


9 I ) =XL ( 1 


1 


« I ) ♦ A (3t I ) *8 (25* I ) 


20 


0063 




XL ( 2 


• 1 


9 1)=XL(2 


1 


9l)^A(39l)*8(299l) 


20 


0064 




XL (3 


tl 


9 I ) =XL ( 3 


1 


*I)^A(3*I) +8(27*1) 


20 


0065 




XL (2 


f 2 


9 I ) =XL ( 2 


2 


9l)^A<39l)+B(279l) 


20 


0066 




XL ( 3 


♦ 2 


9 I ) =XL ( 3 


2 


*1) «A (3*1) *B( 25*1) 


20 


0067 




XL ( 3 


♦ 3 


9l)*XL<3 


3 


*I)«A(3*I)+8(29*I) 


20 


0068 


8 


XL 1 


» 2 


9 I)*XL(2 


1 


*1) 


20 


0069 




XL 1 


♦ 3 


9 I ) =XL ( 3 


1 


*1) 


20 


0070 




XL ( 1 


?4 


9 I ) =XL ( 4 


1 


*1) 


20 


0071 




XL ( 1 


*5 


9 I ) =XL (5 


1 


*1 ) 


20 


0072 




XL (2 


• 3 


9 I ) =XL ( 3 


2 


9 1 ) 


20 


0073 




XL (2 


*4 


9 I ) =XL (4 


2 


9 I ) 


20 


0074 




XL (2 


»5 


9 I ) =XL (5 


2 


9 I) 


20 


0075 




XL (3 


94 


9 I)=XL(4 


3 


9 I) 


20 


0076 




XL ( 3 


♦ 5 


9 I ) =XL (5 


3 


9 I ) 


20 


0077 




XL (4 


f5 


9 I ) =XL (5 


4 


9 I) 


20 


0070 




GO TO 


(999910) 


LI 


20 


0079 


9 


XL ( 1 


96 


9 I ) =XL ( b 


1 


9 I) 


20 


0080 




XL (2 


96 


9 I ) =XL ( 6 


2 


tl) 


20 


0001 




XL ( 3 


96 


9 I )=XL(6 


3 


9 1 ) 


20 


0002 




XL(4 


96 


9 I ) =XL ( 6 


4 


tl) 


20 


0003 




XL (5 


96 


9 I ) =XL (6 


5 


9 I) 


20 


0084 


10 


CONTINUE 






20 


0005 




RETURN 








20 


0006 




END 










20 


0007 



o o 
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SUBROUTINE IMAT 21 0000 

SET UP THE ( ( IMPEOANCE) ) MATRICES. WITHOUT FIELD SATURATION EF- 21 0001 

FECTS. OF THE ROTATING MACHINES CONNECTED TO THE MAIN BUS. 21 0002 

COMMON A.B.BO.C.CO.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LGl .LG2.LG3 21 0003 

1.LP1.LP2.LP3. TITLE. HEAD 21 0004 

DIMENSION A (80.35) .B (99.35) .BO (8) .C (50) .CO (3.4) .0(120) .EG (50) .EP (521 0005 
10) .F (316) .6(21.35) »GB( 3. 4.9) ,0(316) .VV (21.9) .W (6. 6*9) .XL (6. 10. 35) .21 0006 
2XM(6. 10,9) .Y (316) ,Z(6»6»35) .L(134) .LG1 (50) ,LG2(50) ,LG3(50) .LP1 (50)21 0007 
3.LP2(50) .LP3(50) .TITLE! 39) .HEAD (39) 21 0008 





NS=L(1 ML(2)*L(3) 


21 


0009 




00 9 1 = 1* NS 


21 


0010 




L I=L ( 1*99 ) 


21 


0011 




GO TO (1*1*4) *L I 


21 


0012 


1 


CONTINUE 


21 


0013 




IF ( A ( 3 * I ) ) 3*3*2 


21 


0014 




TO ABOVE 3* SALIENCY EFFECTS FOR SYNCHRONOUS MACHINES. 


21 


0015 


2 


CC=-2.0*A(3*I)*B(5*I) 


21 


0016 




Z ( 2 * 1 * I ) =CC*B (30*1) 


21 


0017 




Z ( 3* 1 * I ) =CC*B (28*1) 


21 


0018 




Z ( 3* 2* I ) =CC*B (26*1) 


21 


0019 




Z(1*1*I)=A(11*I)*Z(3*2*I) 


21 


0020 




Z(2*2*I)=A(11*I) ♦Z ( 3* 1 * I ) 


21 


0021 




Z(3*3*I)=A(11*I)<*Z(2*1*I) 


21 


0022 




GO TO 4 


21 


0023 


3 


Z ( 1 * 1 * I ) =A (11*1) 


21 


0024 




Z (2* 1 * I ) =0 . 0 


21 


0025 




Z ( 3* 1 ♦ I ) =0 • 0 


21 


0026 




Z ( 2 * 2 ♦ I ) = A ( 1 1 * I ) 


21 


0027 




Z ( 3*2 * I ) -0 . 0 


21 


0028 




Z(3*3*I)=A(11*I) 


21 


0029 


4 


CC= A (4 * I ) *B ( 5* I ) 


21 


0030 




Z(4*1*I)=CC*B(20*I) 


21 


0031 




Z(4*2*I)=CC*B(24*I) 


21 


0032 




Z(4*3*I)=CC*B(22*I) 


21 


0033 




GO TO (5*5*6) *L I 


21 


0034 


5 


CC= A (5 ♦ I ) *B ( 5 * I ) 


21 


0035 




Z (5* 1 ♦ I ) =CC*B (20*1) 


21 


0036 




Z (5* 2* I ) =CC*B (24*1) 


21 


0037 




Z (5 ♦ 3* I ) =CC*B (22*1) 


21 


0038 




CC=A(6*I)*8(5*I) 


21 


0039 




Z ( 6 ♦ 1 * I ) »CC*B (19*1) 


21 


0040 




Z (6*2* I ) =CC*B (23*1) 


21 


0041 




Z (6 * 3* I ) =CC*B (21*1) 


21 


0042 




GO TO 7 


21 


0043 


6 


CC=A (4*I)*B(5*I) 


21 


0044 




Z (5* 1 ♦ I ) S CC*8 (19*1) 


21 


0045 




Z(5*2*I)=CC*B(23*I) 


21 


0046 




Z (5 ♦ 3 ♦ I ) =CC*8 (21*1) 


21 


0047 


7 


Z(1*4*I)=Z (4*1*1) 


21 


0048 




Z(1 *5*1) =Z (5*1*1) 


21 


0049 




Z(2*4*I)=2(4*2*I) 


21 


0050 




Z (2*5* I ) =Z (5*2* I ) 


21 


0051 




Z(3*4*I)=Z (4*3*1) 


21 


0052 




Z ( 3 *5 * I ) =Z ( 5* 3 ♦ I ) 


21 


0053 




GO TO (8*8*9) *LI 


21 


0054 


8 


Z ( 1 * 2 * I ) = Z (2* 1 * I ) 


21 


0055 




Z ( 1 ♦ 3 * I ) = Z ( 3* 1 * I ) 


21 


0056 




Z (2*3* I) = Z ( 3* 2 * I ) 


21 


0057 




Z ( 1 *6* I ) *Z (6* 1 * I ) 


21 


0058 



133 



Z<2.6.I)=Z(6,2»I) 21 0059 

Z(3»6»I)=Z(6*3»I) 21 0060 

9 CONTINUE 21 0061 

RETURN 21 0062 

END 21 0063 
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SUBROUTINE SAT 



22 0000 



DETERMINE IF THE FIELDS OF THE SYNCHRONOUS MACHINES CONNECTED TO 22 
THE MAIN BUS ARE SATURATED* AND COMPUTE THE FIELD FLUX LINKAGES* 22 

THE EQUIVALENT FIELD SATURATION CURRENTS* AND THE DERIVATIVES OF 22 

THE LATTER WITH RESPECT TO THE FORMER • 22 

COMMON A*B*B0*C*CD*D*EG*EP*F*G*GB*Q*VV*W*X*XL*XM*Y*Z*L*LG1*LG2*LG3 22 
l*LPlfLP2*LP3* TITLE* HEAD 22 

DIMENSION A (80 *35) *R (99*35) *B0<8) *C(50) *CD<3*4) *D( 120) *EG(50) *EP(522 
10) *F (316) *G(21*35) *GB (3*4*9) *Q(316) *VV(21*9) * W ( 6 * 6 * 9 ) * XL (6*10* 35) *22 
2XM(6*10*9) *Y (316) *Z(6*6* 35) *L ( 134) *LG1 (50) *LG2(50) *LG3(50) *LP1 (50)22 
3*LP2(50) *LP3(50) *T ITLE (39) *HEAD (39) 22 



NT=L ( 1 ) ♦L ( 2) 

DO 7 1=1 *NT 
J=L ( I ♦SO ) -1 
B (6 ♦ I ) =0 • 0 
DO 4 K=1 *5 
M= J^K 

B(6*I)=B(6*I) *XL (4*K*I )»Y(M) 
IF(B(6*I)-A(16*I) ) 5*5*6 
B ( 7 * I ) =0 • 0 
R ( 8 ♦ I ) =0 . 0 
L ( I ♦ 10 ) =1 



22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 



0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 



GO TO 7 22 0022 

6 Cl=A(16*I)-0.5/(A(17*I)*A(7*I) ) 22 0023 

C2=C1*C1^B(6*I)/(A(17*I)*A(7*I) ) - A ( 1 6 * I ) *A ( 1 6 ♦ I ) 22 0024 

C2=SQRT(C2> 22 0025 

B ( 6 * I ) =C1 *C2 22 0026 

B(7*I)=A(17*I)*(B(6*I)-A(16*I) )*(B(6* I) -A (16* I) ) 22 0027 

B(8*I)=2.0*A(17*I)*(B(6*I)-A(16*I)) 22 0028 

L ( I ♦ 1 0 ) =2 22 0029 

7 CONTINUE 22 0030 

RETURN 22 0031 

END 22 0032 
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SUBROUTINE SATEF 23 

ADO FIELD SATURATION EFFECTS TO THE INDUCTANCE AND ((IMPEDANCE)) 23 

MATRICES OF THE SYNCHRONOUS MACHINES CONNECTED TO THE MAIN BUS. 23 
COMMON A*B*B0*C*CD*D*EG*EP*F*G*GB*Q*VV*W*X*XL*XM*Y*Z*L*LG1*LG2*LG3 23 

1 *LP1*LP2*LP3* TITLE* HEAD 23 

DIMENSION A(80*35) *B(99*35) *B0(8) *C(50) *CD(3*4) *D<120) *EG(50) *EP(523 
10) *F(316) *G(21 *35) *GB(3*4*9) *G ( 31 6) * VV ( 2 1 * 9) * W ( 6* 6 * 9 ) * XL ( 6* 1 0 ♦ 35) *23 
2XM (6*10*9) *Y (316) *Z (6*6*35) .L( 134) *LG1 (50) *LG2(50) *LG3(50) *LP1 (50)23 



3*LP2(50) *LP3(50) ♦ TITLE (39) * HEAD (39) 

NT=L ( 1 ) ♦L ( 2 ) 

DO 2 1=1 *NT 
L20=L ( I ♦ 1 0 ) 

GO TO (2*1) *L20 

1 C1=A(4*I)*B(8*I)/(1.0^A(7*I)*B(8*I) ) 

C2=A (4* I ) *C 1 
C3=C1*B (19*1) 

C4=C2*B (19*1) 

XL ( 1 1 1 * I ) =XL (1*1*1) -C4*B (19*1) 

XL ( 2* 1 * I ) =XL (2*1*1) -C4*B (23*1) 

XL(3*1*I)* XL (3*1*1)- C4*B(21*I) 
XL(4*1*I)=XL(4*1*I) *C3*A(7*I) 

XL (5 * 1 * I ) =XL ( 5* 1 * I ) *C3*A (8*1) 

C3=C1*B(23*I) 

C4=C2*B(23*I) 

XL (2*2* I )=XL(2*2*I )-C4*B(23*I) 
XL(3*2*I)=XL(3*2*I)-C4*B(21*I) 
XL(4*2*I)=XL(4*2*I) ♦C3*A(7*I) 
XL(5*2*I)=XL(5*2*I) ♦C3*A(8*I ) 
XL(3*3*I)=XL(3*3*I)-C2*B(21*I)*B(21*I) 

C3=C 1 *B ( 2 1 * I ) 

XL (4*3* I ) =XL (4*3*1) *C3*A (7* I ) 
XL(5*3*I)=XL(5*3*I) ♦C3*A(8*I) 

C3=C 1*A(7,I)/A(4*I) 
XL(4*4*I)=XL(4*4,I)-C3*A(7*I) 

XL (5*4* I ) =XL (5*4*I)-C3*A(8*I) 
XL(5*5*I)=XL(5*5*I)-C1*A(8*I)*A(8*I)/A(4*I) 
C1=C 1*8 (5* I ) 

C2=C2*B (5*1) 

C3=C 1 *B (20 ♦ I ) 

C4=C2*B (20*1) 

Z (1 *1*1) =Z( 1*1*1) ♦C4*B( 19*1) 

Z(2*1*I)=Z(2*1*I)^C4*B(23*I) 

Z(3*1*I)=Z(3*1*I)*C4*B(21*I) 

Z(4*1*I)=Z(4*1*I)-C3*A(7*I) 

Z(5*1*I)=Z(5*1*I)-C3*A(8*I) 

C3=C 1*9(24*1) 

C4=C2*B ( 24 « I ) 

Z ( 1 *2* I ) = Z ( 1 * 2 * I ) ♦ C4*B (19*1) 
Z(2*2*I)=Z(2*2*I)^C4*B(23*I) 

Z(3*2* I) =Z (3*2*1 ) 404*8(21*1) 

Z(4*2*I)=Z<4*2* I)-C3*A(7*I) 
Z(5*2*I)=Z(5*2*I)-C3*A(8*I) 

C3 = C 1 *B ( 22 * I ) 

C4 = C2*B (22*1) 

Z ( 1 ♦ 3* I ) = Z ( 1 *3* I ) ♦ C4*B (19*1) 

Z (2 *3* I ) = Z ( 2 * 3* I ) ♦ C4*B (23*1) 

Z ( 3*3* I ) = Z ( 3* 3* I ) ♦ C4*B (21*1) 
Z(4*3*I)=Z(4*3* I)-C3*A(7*I) 
Z(5*3*I)=Z(5*3*I)-C3*A(8*I) 



23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 



0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 
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XL(1.2.I)=XL(2,1,I) 


23 


0059 


XL (1«3*I)=XL (3*1*1) 


23 


0060 


XL(1*4,I)=XL<4,1.I) 


23 


0061 


XL(1*S.I)=XL(S.1*I) 


23 


0062 


XL(2*3*I)=XL(3*2*I) 


23 


0063 


XL(2*4,I)3XL(4*2.I) 


23 


0064 


XL(2*5*I)=XL(5*2*I) 


23 


0065 


XL(3*4*I)=XL(4*3«I) 


23 


0066 


XL<3*5*I)=XL<5.3.I) 


23 


0067 


XL(4,5*I>=XL(5.4.I) 


23 


0068 


C1=A(4*I)*B(5*I) 


23 


0069 


8<9,I)=C1*B(20,I) 


23 


0070 


B(10.I)=C1*B(24,I) 


23 


0071 


B<11,I)=C1*B(22,I) 


23 


0072 


CONTINUE 


23 


0073 


RETURN 


23 


0074 


END 


23 


0075 



on no on 
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SUBROUTINE RLMB 24 0000 

COMPUTE THE INSTANTANEOUS VALUES OF THE PHASE RESISTANCES AND IN- 24 0001 

DUCTANCES OF THE RL LOAD OF THE MAIN BUS. 24 0002 

COMMON A,B.BO.C»CD.D.EG.EP,F,G.GB,Q.VV.W.X.XL,XM,Y.Z»L.LGl.LG2.LG3 24 0003 

1.LP1 .LP2.LP3.TITLE.HEAD 24 0004 

DIMENSION A (80.35) .6(99.35) ,BO(8) .C(50) .CD (3. 4) .D ( 120 ) .EG ( 50 ) . EP (524 0005 
10) .F (316) .G<21.35) .GB (3.4,9) ,0(316) .VV (21.9) .W (6.6.9) .XL (6. 10.35) .24 0006 
2XM(6,10.9) ,Y(316) ,Z(6,6,35) ,L(134) ,LG1 (50) ,LG2 (50 ) »LG3 (50 ) .LP1 (50)24 0007 





DO 1 1=3.8 


24 


0009 




J= I *1 3 


24 


0010 


1 


D ( J) = C ( I ) 


24 


0011 




IF (X.LT.C(ll)) GO TO 3 


24 


0012 




TO 2—, STEP CHANGE IN RL LOAD. 


24 


0013 




C1=1.0*C(12) 


24 


0014 




DO 2 1=16,21 


24 


0015 


2 


D ( I ) = C1»D ( I ) 


24 


0016 


3 


IF ( X .LT . C ( 1 3 ) ) GO TO 5 


24 


0017 




TO 4—, SINUSOIDAL VARIATION OF RL LOAD. 


24 


0018 




C1=C(14)*(X-C(13)) 


24 


0019 




C2=1.0*C(15)*SIN(C1) 


24 


0020 




C1=C(15)*C(14)*C0S(C1) 


24 


0021 




DO 4 1=16.18 


24 


0022 




J=I *3 


24 


0023 




D(I)=C2«D(I)*C1*D(J) 


24 


0024 


4 


D ( J) =C2*D ( J) 


24 


0025 


5 


IF (X.LT.C (9) .OR.X.GT.C (10) ) GO TO 9 


24 


0026 




TO ABOVE 9 — , ADJUST VALUES DURING ONE. TWO. 


OR THREE PHASE FAULTS 24 


0027 




ON MAIN BUS. 


24 


0028 




L7=L ( 7 ) 


24 


0029 




IF (L7.LE.0.OR.L7.GT.3) GO TO 9 


24 


0030 




GO TO (8.7 ,6) »L7 


24 


0031 


6 


D ( 1 8 ) =0 . 0 


24 


0032 




D(21 ) = 0.0 


24 


0033 


7 


D ( 1 7 ) =0 . 0 


24 


0034 




D ( 20 ) =0 . 0 


24 


0035 


8 


D< 16) =0 .0 


24 


0036 




D ( 1 9) =0 .0 


24 


0037 


9 


RETURN 


24 


0038 




END 


24 


0039 



on on on noon 
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SUBROUTINE XLMAT 






25 


0000 


SET UP THE MATRIX XL CONTAINING THE COEFFICIENTS OF 


THE EQUATIONS 


25 


0001 


RELATING THE WINDING CURRENT DERIVATIVES OF EACH ROTATING MACHINE ♦ 


25 


0002 


CONNECTED TO THE MAIN BUS, TO THE CURRENT DERIVATIVES 


or THE RL 


25 


0003 


LOAD OF THE MAIN BUS. 






25 


0004 


COMMON A.B.80.C.CD.D.EG.EP.F.G.GB.0. VV. W. X , XL. XM, Y ♦ Z .L.LG1 .LG2.LG3 


25 


0005 


1.LP1.LP2.LP3.TITLE.HEAD 






25 


0006 


DIMENSION A (80. 35) .B (99. 35) .80(8) .C (50) .CD (3.4) .0(120) 


♦EG ( 50 ) tEP (525 


0007 


10) ,F(316),G(21.35) .G8 (3.4,9) .0(316) .VV (21.9) tW (6.6.9) . 


XL(6, 10.35) . 


25 


0008 


2XM(6.10»9)»Y(316)»Z(6.6,35)»L(134).LG1 (SO ) . LG2 (50 ) . 


LG3 ( 50 ) .LP1 (50)25 


0 0 OR 


3.LP2 (50 ) »LP3(50) .TITLE (39) .HE AD (39) 






25 


0010 


NS=L(1)*L(2)*L(3) 






25 


0011 


C1=D ( 1 6 ) *D ( 22 ) 






25 


0012 


C2=D ( 17) *D ( 23) 






25 


0013 


C3=D ( 18) *0 ( 24 ) 






25 


0014 


DO 33 1=1. NS 






25 


0015 


L I=L < I *99) 






25 i 


0016 


J=L ( I *50 ) -1 






25 


0017 


IF (L I »GE • 3) GO TO 110 






25 


0018 


TO 100 — . CONTRIBUTIONS FROM THE GROUNDING REACTORS 


or 


SYNCHRONOUS 


25 


0 019 


MACHINES. 






25 


0020 


C4=A(21,I) 






25 


0021 


IF(CA.LE.O.O) GO TO 110 






25 


0022 


DO 100 K=1 .3 






25 


0023 


DO 100 M=1 .3 






25 


0024 


100 XL(K,M.I)=XL(K.M,I)*C4 






25 


0025 


110 DO 22 K=1 .6 






25 


0026 


DO 21 M=7 ,10 






25 


0027 


21 XL (K.M, I ) =0.0 






25 


0028 


22 CONTINUE 






25 


0029 


XL(1»7,I)=-C1*B<7,I)*B(9,I) 






25 


0030 


XL (1.8.1) =-D (19) 






25 


0031 


XL (2.7.1) =-C2*B (7. I) *8(10.1) 






25 


0032 


XL (2. 9. I ) =-D ( 20 ) 






25 


0033 


XL(3.7.I)=-C 3*8(7. I)*B(11»I) 






25 


0034 


XL ( 3 . 1 0 » I ) =-D (21 ) 






25 


0035 


GO TO (24,23,25) .LI 






25 


0036 


TO 210—. CONTRIBUTION FROM THE FIELD VOLTAGE OF SYNCHRONOUS MO- 


25 


0037 


TORS. (EXCITER MODEL.) 






25 


0038 


23 IF( (60. 0-8(5, 11/6.283). GE.A( 24.1)) GO TO 200 






25 


0039 


IF(Y(J*4) .LT.0.0) GO TO 200 






25 


0040 


C4=0.005*(D(7)*D<8) ) 






25 


0041 


IF(A(23, I). LT.0.0) C4=0 . 005* ( D (9 ) *D ( 1 0 ) ) 






25 


0042 


B(12.I)=A(22,I)*C(2)*(1.0*C4) 






25 


0043 


GO TO 210 






25 


0044 


200 B(12,I)=-A(2S.I)*Y(J*4) 






25 


0045 


210 XL(4,7,I)=8(12,I) 






25 


0046 


J J=6 






25 


0047 


GO TO 15 






25 


0048 


24 JJ=6 






25 


0049 


TO ABOVE 25—. CONTRIBUTIONS FROM THE FIELD VOLTAGE 


or 


SYNCHRONOUS 


25 


0050 


ALTERNATORS. (EXCITER MODEL.) 






25 


0051 


IF (ABS (Y ( J*8) ) .GT . A ( 33. I ) ) Y ( J*8) =SI GN ( A ( 33. I ) ♦ Y ( J*8 ) ) 




25 


0052 


IF (ABS <B < 14. I ) ) ,LT.A(32»I) ) GO TO 30 






25 


0053 


XL(4,7,I)=SIGN(A(32,I) ,8(14.1) ) 






25 


0054 


GO TO IS 






25 


0055 


30 C4=2.0*(A( 12.1 ) *A( 31.1 ) ) / ( 3 . 0*A (4 , I ) *B (5, I ) ) 






25 


0056 


C5=C4*(A(1,I)*A(2»I)*1.5*A(3,I) )*B(5»I) 






25 


0057 


XL(4,7,I)=C5*(Y(J*1)*8(19.I)*Y(J*2)*B(23,I)*Y(J*3)*I 


B (21 ♦ I ) )-C4*( 


25 


0058 
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1D<16)*D<22>*B<20.I>*D<17)*D<23>*B<24 

2»8>-A<31.I>*Y<J»4) 

XL<4»8,I)=-C4*D<19)»B(20»I) 

XL <4,9.1 ) =-C4*D(20)»B<24»I) 
XL<4,10,I)=-C4*D<21)*B<22,I) 

GO TO IS 

25 J J=5 

15 DO 27 K=1,JJ 
DO 26 M»1,JJ 
N=J*M 

26 XL(K,7,I)=XL(K»7»I)-Z(K»M,I)*Y(N) 

27 CONTINUE 
33 CONTINUE 

RETURN 

END 



I)*D(18)*D(24) # B(22»I> ) ♦ Y ( J 25 00S9 

25 0060 
2S 0061 
25 0062 
25 0063 
25 0064 
25 0065 
25 0066 
25 0067 
25 0068 
25 0069 
25 0070 
25 0071 
25 0072 
25 0073 



o o o o 
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SUBROUTINE TRIAS 26 0000 

FOR EACH ROTATING MACHINE CONNECTED TO THE MAIN BUS* TR I ANGULAR I ZE 26 0001 
THE CORRESPONDING PART OF THE MATRIX XL. 26 0002 

THE RUN IS ABORTED IF ANY SUCH PART OF XL IS SINGULAR* AND A COM- 26 0003 
MENT IS WRITTEN IN TAPE 6. 26 0004 

COMMON A ♦ R * BO ♦ C * CD ♦ D * EG ♦ EP ♦ F * G ♦ GB ♦ Q ♦ VV* W* X * XL * XM * Y ♦ Z *L ♦ LG1 * LG2 ♦ LG3 26 0005 
1*LP1*LP2*LP3*TITLE*HEAD 26 0006 

DIMENSION A (80 *35) *B (99*35) *90(8) *C(50) *CD(3*4) *D(120) *EG(50) *EP(526 0007 
10) *F (316) *G(21*35) *GB (3*4*9) *0(316) * VV ( 2 1 * 9) * W ( 6 * 6* 9) *XL(6*10*35) *26 0008 
2XM(6*10*9)*Y (316) *Z(6*6*35) *L(134) * LG1 ( 50 ) *LG2 (50 ) *LG3 ( 50 ) *LP 1 ( 50 ) 26 0009 
3*LP2(50) *LP3(50) *TITLE(39) *HEAD(39) 26 0010 



100 FORMAT (1H1 *24HABN0RMAL EXIT FROM 
1MBER * 13* 12H IS SINGULAR) 

NS=L(1) *L ( 2 ) *L ( 3 ) 

DO 23 1 = 1* NS 
LI =L ( I *99 ) 

GO TO (1*1*2) *LI 
1 J=7 
GO TO 3 
P J=6 

3 J=J-1 

IF (ABS(XL(J*J*I) ) -1 .0E-30 ) 4*4*12 

4 IF(J-l) 5*5*6 

C SINGULAR MATRIX. ABORT RUN. 

WRITE (6*100) I 
CALL EXIT 

6 J1=J 

7 J1=J1-1 

IF (ABS(XL(J1*J*I) )-l .0E-30) 8*8*9 

8 IF(Jl-l) 5*5*7 

9 DO 10 K= 1 * J 
W1=XL(J*K*I) 

XL(J*K*I)=XL(J1*K*I) 

10 XL( J1*K*I)=W1 
DO 11 K=7 *10 
Wl=XL ( J*K * I ) 

XL(J*K*I)=XL(J1*K*I) 

11 XL ( J 1 ♦ K * I ) =W 1 

12 JJ=J-1 

IF(JJ) 15*15*13 

13 DO 14 K= 1 ♦ JJ 

14 XL (J*K ♦ I ) =XL (J*K* I ) /XL (J*J* I ) 

15 DO 16 K = 7 * 1 0 

16 XL(J*K*I)=XL(J*K*I)/XL(J*J*I) 

IF ( JJ) 23*23*17 

17 J1=J-1 

18 IF(XL(J1*J*I) ) 19*22*19 

19 DO 20 K= 1 * J J 

20 XL(J1*K*I)=XL(J1*K* I)-XL(J1*J*I)*XL 
DO 21 K = 7 * 1 0 

21 XL ( Jl *K*I)=XL(J1*K*I)-XL( J1*J*I)*XL 

22 J1=J1-1 

IF(J1) 3*3*18 

23 CONTINUE 
RETURN 
END 



AS/28H THE XL MATRIX OF SET NU 26 0011 

26 0012 
26 0013 
26 0014 
26 0015 
26 0016 
26 0017 
26 0018 
26 0019 
26 0020 
26 0021 
26 0022 
26 0023 
26 0024 
26 0025 
26 0026 
26 0027 
26 0028 
26 0029 
26 0030 
26 0031 
26 0032 
26 0033 
26 0034 
26 0035 
26 0036 
26 0037 
26 0038 
26 0039 
26 0040 
26 0041 
26 0042 
26 0043 
26 0044 
26 0045 
26 0046 
26 0047 

J* K * I ) 26 0048 

26 0049 

J*K ♦ I ) 26 0050 

26 0051 
26 0052 
26 0053 
26 0054 
26 0055 



on no on on on 
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SUBROUTINE CDMACH 27 0000 

COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD EROM EACH ROTATING MA- 27 0001 

CHINE CONNECTED TO THE MAIN BUS. 27 0002 

COMMON A,B*B0,C,CD,D»EG,EP,F»G,GB,Q»VV,W,X»XL.XM»Y»Z,L»LG1,LG2»LG3 27 0003 

l.LPl,LP2,LP3, TITLE, HEAD 27 0004 

DIMENSION A(80»35),B(99»35)»BO(8),C(50)»CD(3»4)»D(120) , EG ( 50 ) . EP ( 527 0005 
10) ,F(316) ,G(21 ,35) ,GB(3,4,9) ,Q<316) ,VV<21 ,9) ,W(6«6»9) ,XL<6,10,35> .27 0006 
2XM(6.10.9) .Y (316) .Z (6.6.35) .L( 134) .LG1 (50 ) . LG2 ( 50 ) .LG3 (50 ) .LP1 ( 50 ) 27 0007 



3.LP2 (50),LP3(50).TITLE(39) .HE AD (39) 

NS = L(l) ♦ L (2) ♦ LO> 

DO 35 1=1. NS 

IF ( I-L ( 43 ) ) 33.24,33 

24 IF (L (40 ) ) 25,25,27 

25 CD(l.l) = CD ( 1 » 1 ) -XL (1.8,1) 

CDI1.2) = CD ( 1 ,2 ) -XU (1.9,1) 

CD ( 1 , 3 ) = CD(1,3)-XL(1»10»I) 

CD ( 1 ,4 ) = CD ( 1 ,4) *X|_ ( 1 . 7« I ) 

IF (L (41 ) ) 26,26,31 

26 CD (2,1 )=CD(2,1)-XL(2,8,I) *XL(2, 1. I)»XL< 1,8, 1) 

CD ( 2,2) =CO (2,2)-XL(2,9,I)»XL(2.1,I)*XL(l,9,I) 
CD(2,3)=CD(2,3)-XL(2.10,I),XL(2,1,I)*XL(1,10,I) 

CD ( 2,4 ) =CD (2,4) ♦XL(2.7.I)-XL(2,1»I)*XL( 1,7, I) 

IF (L (42 ) ) 34,34,35 

27 IF (L (41 ) ) 28,28.30 

FOUR LINES DOWN—. CONTRIBUTIONS FROM PHASE B WHEN PHASE A OF A 
MACHINE IS DISCONNECTED FROM THE MAIN BUS. 

28 CD(2,1)=CD(2,1)-XL(2»8,I) 

CD (2. 2) =CD (2. 2) -XL (2, 9, I) 

CO (2,3 ) =CO ( 2, 3) -XL (2,10,1) 

CD(2,4)=CD(2,4).XL(?,7,I) 

IF (L (42) ) 29,29,35 

FOUR LINES DOWN—, CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE A Of 
A MACHINE IS DISCONNECTED FROM THE MAIN BUS. 

29 CD (3,1 )=CD(3,1)-XL(3,8, I) *XL(3,2, I)*XL(2,8, I) 
CD(3,2)=CD(3,2)-XL(3,9, I) »XL(3,2, I >*XL (2.9. I) 
CD(3,3)=CD(3,3)-XL(3,10.I),XL(3,2,I)*XL(2,10,I) 

CD(3,4)=CD(3.4) ♦XL(3,7, 1 ) -XL ( 3 » 2, 1 > *XL ( 2, 7, 1) 

GO TO 35 

FOUR LINES DOWN — , CONTRIBUTIONS FROM PHASE C WHEN PHASES A AND B 
OF A MACHINE ARE DISCONNECTED FROM THE MAIN BUS. 

30 CD ( 3 , 1 ) =CD (3»1)-XL(3.8,I) 

CD ( 3 , 2 ) =CD ( 3 ♦ 2 ) -XL ( 3 ♦ 9 , 1 ) 

CD (3, 3) =CD (3, 3)-XL (3,10.1) 

CD ( 3,4 ) =CD (3,4) ♦XL(3,7,I) 

GO TO 35 

31 IF (L (42) ) 32,32,35 

FOUR LINES DOWN—, CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE B OF 
A MACHINE IS DISCONNECTED FROM THE MAIN BUS. 

32 CD (3 , 1 ) =CD ( 3, 1 ) -XL ( 3,8. 1 ) *XL (3 , 1 , I ) *XL ( 1 «8« I ) 
CD(3,2)=CD(3,2)-XL(3,9,I)»XL(3,1,I)*XL(1,9»I) 
CD(3,3)=CD(3,3)-XL(3,10,I)*XL(3,1»I)*XL(1»10»I) 

CD ( 3,4 ) =CD (3»4)*XL(3,7,I)-XL(3,1,I)*XL(1,7.I) 

GO TO 35 

33 CD(1,1)=CD(1,1)-XL(1,8,I) 

CD ( 1 . 2 ) =CD ( 1 « 2 ) -XL ( 1 « 9, 1 ) 

CD ( 1 , 3 ) =CD ( 1 .3 ) -XL ( 1 . 1 0 ♦ I ) 

CD (1.4) =CO (1.4)*XL(1.7,I) 

CD(2,1)=CD(2,1)-XL(2.8,I) ♦XL(2,1,I)*XL(1,8,I) 
CD(2,2)=CD(2»2)-XL(2»9»I)*XL(2»1,I)*XL(1,9,I) 



27 0008 



27 


0009 


27 


0010 


27 


0011 


27 


0012 


27 


0013 


27 


0014 


27 


0015 


27 


0016 


27 


0017 


27 


0018 


27 


0019 


27 


0020 


27 


0021 


27 


0022 


27 


0023 


27 


0024 


27 


0025 


27 


0026 


27 


0027 


27 


0028 


27 


0029 


27 


0030 


27 


0031 


27 


0032 


27 


0033 


27 


0034 


27 


0035 


27 


0036 


27 


0037 


27 


0038 


27 


0039 


27 


0040 


27 


0041 


27 


0042 


27 


0043 


27 


0044 


27 


0045 


27 


0046 


27 


0047 


27 


0048 


27 


0049 


27 


0050 


27 


0051 


27 


0052 


27 


0053 


27 


0054 


27 


0055 


27 


0056 


27 


0057 


27 


0058 
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CD(2f3)=CD<2f 3)-XL<2f 10f I > *XL <2f 1 f I ) *XL < 1 f 10f I > 
CD(2f4)=CD<2f4)*XLC2*7f I)-XL<2f If I)*XLUf7f I) 

34 CD<3'l>=CD<3«l)-XL(3«8«I)*XL(3'2'I)*XL(?f8t I)*XL(I'8*I)*(XL(3'1«I> 
1 -XL(2*lfI) # XL(3*2»I) ) 

CDC3f2>=CD(3f2>-XL(3f9f I)*XL<3f2tI>*XL(2f9f I)*XL<lf9f I)*<XL(3f If I> 
1 -XL(2fltI)*XL(3«2*I)) 

CD(3f3)=*CD<3f3>-XL<3f 10f I) *XL(3f2f I)*XL(2f 10f I) ♦XLClflOf I)*(XL(3f 1 
If I)-XL(2f l«I)*XLO*?«n ) 

C0(3f4)=C0(3f4)^XL(3f7f I)-XL(3f2f I)*XL(2f7f I)-XL(lf7f I)*(XL(3f If I) 
1 -XL(2f If I)*XL(3f2f I) ) 

35 CONTINUE 
RETURN 
END 



27 0059 
27 0060 
27 0061 
27 0062 
27 0063 
27 0064 
27 0065 
27 0066 
27 0067 
27 0068 
27 0069 
27 0070 
27 0071 



non o o oo ooooo 
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SUBROUTINE COTRAN 28 0000 

FOR EACH DISTRIBUTION TRANSFORMER CONNECTED TO THE MAIN BUS. 28 0001 

COMPUTE B(39, I) TO 0(50,1), WHICH ARE THE COEFFICIENTS OF THE 28 0002 

THREE EQUATIONS RELATING THE DERIVATIVES OF THE SECONDARY CURRENTS 28 0003 
TO THE CURRENT DERIVATIVES OF THE RL LOAD OF THE MAIN BUS. AND 28 0004 

COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD. 28 0005 

COMMON A.B.B0,C.CD,D.EG.EP,F.G.GB,0.VV,W,X,XL,XM.Y,Z.L,LG1,LG2,LG3 28 0006 
l.LPl»LP2,LP3,TITLF,HEAD 28 0007 

DIMENSION A(80»35) »B(99,35) ,BO(9) ,C(50) »CD ( 3, 4) ,0(120) ,EG(50) ,EP(528 0008 
10) ,F (316) ,G ( 21 ,35 ) »GB ( 3 . 4,9 ) , Q ( 316 ) . VV (21 ,9 ) , W (6. 6,9) , XL (6, 10 ,35 ) ,28 0009 
2XM (6, 10,9) ,Y (316) »Z(6,6,35> »L(134) ,LG1 (50) ,LG2 (50 ) ,LG3 (50 ) ,LP1 (50)28 0010 
3,LP2(50) ,LP3(50) ,TITLE(39) ,HEAD(39) 28 0011 





N1 =L ( 1 ) ♦!_ ( 2) ♦!_ ( 3) ♦ 1 






28 


0012 




N2=N1 ♦L (4 ) - 1 






28 


0013 




DO 200 I=N1 ♦ N2 






28 


0014 




TO 20 — * COMPUTE THE INSTANTANEOUS VALUES 


OF THE PHASE 


RESISTANCES 


28 


0015 




AND INDUCTANCES OF THE RL LOAD OF EACH TRANSFORMER. 




28 


0016 




DO 10 J=31 ,33 






28 


0017 




B(J,I)=A(4,I) 






28 


0018 




8 ( J*3» I ) =A (5, I ) 






28 


0019 


10 


CONTINUE 






28 


0020 




IF ( X.LT . A ( 6, I ) ) GO TO 30 






28 


0021 




TO 20 — , STEP CHANGE IN RL LOAD. 






28 


0022 




C1=1.0*A(7,I) 






28 


0023 




DO 20 J=31 » 36 






28 


0024 




B(J,I)=C1*8(J,I> 






28 


0025 


20 


CONTINUE 






28 


0026 




TO 159—, COMPUTE B(39,I) TO B(50,I). 






28 


0027 


30 


DO 40 J=39,50 






28 


0028 




B ( J, I ) =0 . 0 






28 


0029 


40 


CONTINUE 






28 


0030 




J=L (1*50) 






28 


0031 




IF (X.LT.A(8, I) .OR.X.GT.A(9,I ) ) GO TO 60 






28 


0032 




L8=IFIX(A( 10, I) *0.000000001) 






28 


0033 




IF (L8.GE.4) GO TO 110 






28 


0034 




IF(L8.LE.O) GO TO 60 






28 


0035 




TO 59—, ADJUST THE PHASE RESISTANCES AND 


INDUCTANCES 


OF THE 


28 


0036 




TRANSFORMER RL LOAD DURING A ONE, TWO, OR 


THREE PHASE 


FAULT ON SE- 


28 


0037 




CONDARY. 






28 


0038 




GO TO (50,49,48) ,L8 






28 


0039 


48 


B ( 33. I ) =0 . 0 






28 


0040 




B (36, I ) =0.0 






28 


0041 


49 


B (32, I ) =0.0 






28 


0042 




B ( 35, I ) =0 . 0 






2e 


0043 


50 


B (31 » I ) =0.0 






28 


0044 


59 


B ( 34, I ) =0. 0 






28 


0045 


60 


IF ( I .NE .L (43) ) GO TO 70 






28 


0046 




IF (L (40) .GT.O) GO TO 80 






28 


0047 




IF < L ( 4 1 > . GT . 0 ) GO TO 90 






28 


0048 




IF (L (42) .GT.O) GO TO 100 






28 


0049 




TO 79—, GENERAL EXPRESSIONS. 






28 


0050 


70 


C1=1.0/(A(2,I)*B(34,I) ) 






28 


0051 




C2=C1/A (3,1) 






28 


0052 




8(39, I >=-Cl*Y(J)*<A(l,I> *8(31,1) )*C2*(D(16)*D(22)-D(17>*D (23) ) 


28 


0053 




8(40*1) =C2*D(19) 






28 


0054 




0(41,1) =-C2*D (20 ) 






28 


0055 




C1=1.0/(A(2,I)*8(35,I>> 






28 


0056 




C2=C1 /A (3,1) 






28 


0057 




B(43,I)=-C1*Y(J*1)*(A(1.I)*B(32.I) ) *C2* (D( 17) *D (23) -D ( 1 8) *D(24) ) 


28 


0058 
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c 



c 



c 



B(45.I)=C2*D(20) 

B <46, I)=-C2*D(21 ) 

C1=1.0/(A(2.I>*B(36,I)> 

C2=C1/A (3,1) 

B(47, I )=-Cl*Y(J*2)*(A( 1,1) *8(33.1) > *C2* <0 ( 18 ) *D ( 24) -D ( 16) *D ( 22 > ) 
B(AB.I)=-C2»D<19) 

79 B ( 50 » I ) =C2*D < 21 ) 

GO TO 160 

TO 89--, PHASE A OF TRANSFORMER DISCONNECTED FROM THE MAIN BUS. 

80 C1=1.0/(2.0*A(2, 1 ) *B(34,I> *B(36,I ) > 

C2=C 1/A (3,1) 

8(39,I)=-C1*Y<J)*(2.0*A(1,I)*B<31»I)*B(33,I))-C2*(D(17)*D(23)-D(18 
1>*D<24) ) 

B(41»I)*-C2*D(20) 

B(42*I)=C2*D<21 ) 

C1=1.0/(A(2»I)*B(35»I)) 

C2=C1/A (3,1) 

B(43, 1)*-C1*Y( J*1 )*( A( 1, I) *B(32» I> ) *C2* (D < 1 7 ) *D ( 23 ) -D ( 1 8 ) *D ( 24 ) ) 
8(45, I)=C2*D(20) 

B (46 , 1 ) =-C2*D ( 21 ) 

B (47, I ) =B ( 39, I ) 

B (49, I ) =B (41 , I ) 

89 B(50.I)=B(42, I) 

GO TO 160 

TO 99—, PHASE B OF TRANSFORMER DISCONNECTED FROM THE MAIN BUS. 

90 C1=1.0/(2.0*A(2,I>*B<34,I)*B<35,I>) 

C2=C1/A(3,I) 

B(39»I)»-C1*Y(J)*(2#0*A(1»I)*B(31»I)*B(32»I) ) -C2* ( D ( 18 > *D ( 24 ) -D ( 16 
1 ) *0 (22) ) 

B (40 , 1 ) =C2*D ( 1 9 ) 

B (42 , 1 ) =-C2*D ( 21 ) 

B (43, I ) =B (39, I ) 

8(44, I > =B (40, I) 

8(46,1) =B (42, I) 

C1=1.0/(A(2,I)*B(36,I>) 

C2=C 1 /A (3 , 1 ) 

B(47,I)=-C1*Y(J»2)*(A(1,I)*B(33,I))*C2*(0<18)*D(24)-D(16)*D(22) ) 

B (48, I ) =-C2*D < 19 ) 

99 B (50 , I ) =C2*D ( 21 ) 

GO TO 160 

TO 109—, PHASE C OF TRANSFORMER DISCONNECTED FROM THE MAIN BUS. 
100 C1=1.0/(A(2,I)*B(34,1)) 

C2=C1/A (3,1) 

B(39, I )=-Cl*Y( J)*( A (1 . I > *B(31 »I> ) ♦C2*(D(16)*D(22)-D(17)*D(23) ) 
B(40,I)=C2*D(19) 

B (41 , I ) =-C2*D (20 ) 

Cl = l ,0/(2.0*A(2, 1) *B(35, 1 ) »B ( 36. 1 ) ) 

C2=C1/A (3,1) 

B(43,I)=-C1*Y(J*1)*(2.0*A(1,I)*B(32,I)*B(33,I))-C2*(D(16)*D(22)-D( 
1 1 7) *D(23 ) ) 

B (44, I ) =-C2*D (19) 

B(45,I)=C2*D(20) 

B (47 , I ) =B (43 , I ) 

B ( 48 , I ) =B ( 44 , I ) 

109 B ( 49 , I ) =B ( 45 , I ) 

GO TO 160 

110 IF ( I .NE.L (43) ) GO TO 120 
IF (L (40 ) . GT • 0 ) GO TO 130 
IF(L(41).GT.O) GO TO 140 



28 


0059 


28 


0060 


28 


0061 


28 


0062 


28 


0063 


28 


0064 


28 


0065 


28 


0066 


28 


0067 


28 


0068 


28 


0069 


28 


0070 


28 


0071 


28 


0072 


28 


0073 


28 


0074 


28 


0075 


28 


0076 


28 


0077 


28 


0078 


28 


0079 


28 


0080 


28 


0081 


28 


0082 


28 


0083 


28 


0084 


28 


0085 


28 


0086 


28 


0087 


28 


0088 


28 


0089 


28 


0090 


28 


0091 


28 


0092 


28 


0093 


28 


0094 


28 


0095 


28 


0096 


28 


0097 


28 


0098 


28 


0099 


28 


0100 


28 


0101 


28 


0102 


28 


0103 


28 


0104 


28 


0105 


28 


0106 


28 


0107 


28 


0108 


28 


0109 


28 


0110 


28 


0111 


28 


0112 


28 


0113 


28 


0114 


28 


0115 


28 


0116 


28 


0117 



o o o o 
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IF (L (42) .GT.O) GO TO 150 














28 


0118 




TO 129 — , L INE-T O-LINE FAULT ON 


SECONDARY. 










28 


0119 


120 


C8=0 .5/ ( A (2* I ) *B (34, I ) ) 














28 


0120 




C10*C8*(A(1,I)*B(31,I) ) 














28 


0121 




C8=C8/A (3,1) 














28 


0122 




C9=0 ,5/A (2,1) 














28 


0123 




C1=C10*(Y(J) ♦ Y ( J* 1 ) ) 














28 


0124 




C2=C9*A(1,I)*(Y(J)-Y(J*1) ) 














28 


0125 




C9=C9/A < 3 * I ) 














28 


0126 




C3=C8*(D(18>*D(24)-D(16>*D<22) ) 














28 


0127 




C4=C9* (0(16) *0(22) *0(18) *D (24)- 


2. 


0*D ( 17 ) *D ( 23 ) ) 








28 


0128 




C5=C8*D (21 > 














28 


0129 




C6=C8*D ( 19 ) 














28 


0130 




C7=C9*D ( 19) 














28 


0131 




C8=2.0*C9*0(20) 














28 


0132 




C9=C9*D(21 ) 














28 


0133 




B(39, I)«-C1-C2-C3*C4 














28 


0134 




B (40 , I ) =C6*C7 














28 


0135 




B (41 , I ) =-C8 














28 


0136 




B (42, I ) =-C5*C9 














28 


0137 




B(43,I)=-C1*C2-C3-C4 














28 


0138 




B (44, I ) =C6-C7 














28 


0139 




B ( 45 » I ) =C8 














28 


0140 




R(46»I)=-C5-C9 














28 


0141 




B(47,I)=2.0*(-C10*Y( J*2> *C3> 














28 


0142 




B(48.I)=-2,0*C6 














28 


0143 


129 


B (50 * I ) =2.0*C5 














28 


0144 




GO TO 160 














28 


0145 




TO 139 — , L INE-TO-L INE FAULT ON 


SECONDARY AND 


PHASE 


A 


OF 


TRANS- 


28 


0146 




FORMER DISCONNECTED FROM THE MAIN 


BUS • 










28 


0147 


130 


C6=l ,0/ < A (2. I ) *0.25*8(34,1) ) 














28 


0148 




Cl=(A(ltI) ♦B(3l*I) )*(2.0*Y( J) ♦ Y ( J ♦ 1 ) )/ (3«0*(A(2«I) ♦B ( 34 • 


I) ) ) 


28 


0149 




C2=C6*(A(1.I>*0.25*R(31.I) )*(Y(J) 


-Y(J*l))/3.0 










28 


0150 




C6=0.5*C6/A(3*I) 














28 


0151 




C3=C6* (D( 17) *D(23) -D( 18) *D (24) ) 














28 


0152 




C4=C6*D<20) 














28 


0153 




C5=C6*D ( 2 1 ) 














28 


0154 




B(39* I)=-C1-C2-C3 














28 


0155 




B ( 4 1 ♦ I ) =-C4 














28 


0156 




B(42,I)=C5 














28 


0157 




B ( 4 3 ♦ I ) =-Cl ♦2*0*(C2^C3) 














28 


0158 




B (45 » I ) =2 • 0*C4 














28 


0159 




B(46»I)=-2.0*C5 














28 


0160 




B (47 ♦ I ) sB ( 39* I ) 














28 


0161 




R ( 49 ♦ I ) =-C4 














28 


0162 


139 


R (50 f I ) =C5 














28 


0163 




GO TO 160 














28 


0164 




TO 1 49-- « L INE-TO-L INE FAULT ON 


secondary and 


PHASE 


B 


OF 


TRANS- 


28 


0165 




FORMER DISCONNECTED FROM THE MAIN 


BUS. 










28 


0166 


140 


C4=1,0/(A(2.I)*B(34,I)) 














28 


0167 




C5=C4*(A(1,I)*B(31.I) > 














28 


0168 




C4=0,5*C4/A(3. I) 














28 


0169 




C1=C4*(D(18)*D(24)-D(16)*D(22) ) 














28 


0170 




C2=C4*D (21 ) 














28 


0171 




C3=C4*D (19) 














28 


0172 




B(39.I)=-C5*Y(J)-C1 














28 


0173 




B (40. I ) =C3 














28 


0174 




B (42. 1 ) =-C2 














28 


0175 




B (43. I ) =B (39. I ) 














28 


0176 



o o 
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0(44 


f I)=C3 


28 


0177 




B (46 


*I)=-C2 


28 


0178 




0(47 


♦ I)=-C5 # Y ( J ♦ 2 ) ♦2#0*C1 


28 


0179 




0(48 


♦I)=-2.0*C3 


28 


0180 


149 


0(50 


f I)=2.0*C2 


28 


0181 




GO TO 160 


28 


0182 




TO 159—, LINE-TO-LINE FAULT ON SECONDARY AND PHASE C OF TRANS- 


28 


0183 




FORMER DISCONNECTED FROM THE MAIN BUS. 


28 


0184 


150 


C6=l 


. 0/ ( A (2, I ) ♦0.25*8(34,1) ) 


28 


0185 




C1=(A(1,I)*B(31»I) )*(Y(J) ♦2.0*Y(J*1) > / ( 3. 0* ( A (2. I > *B ( 34, I ) ) ) 


28 


0186 




C2=C6*(A( 1,1) ♦0.25*8(31, I) ) * ( Y ( J) -Y ( J» 1 ) )/3.0 


28 


0187 




C6 = 0 


•5*C6/A ( 3 ♦ I ) 


28 


0188 




C3=C6*(D(16)*D(22)-D(17)*D(23> ) 


28 


0189 




C4=C6»D(19) 


28 


0190 




C5=C6*D ( 20 ) 


28 


0191 




0(39 


, I ) =-Cl ♦2.0* (C3-C2 ) 


28 


0192 




0(40 


, I ) =2. 0*C4 


28 


0193 




0(41 


, I ) =-2.0*C5 


28 


0194 




0(43 


,I)=-C1»C2-C3 


28 


0195 




0 (44 


*I)=-C4 


28 


0196 




0(45 


, 1)=C5 


28 


0197 




0(47 


, I ) =8 (43, I ) 


28 


0198 




0(48 


,1 )=-C4 


28 


0199 


159 


0(49 


, I)=C5 


28 


0200 




COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD. 


28 


0201 


160 


IF (I 


•EQ.L(43) ,AND.L(40) . GT . 0 ) GO TO 170 


28 


0202 




CD(1 


, 1 ) =CD ( 1 , 1 ) - ( B (48, I ) -B ( 40 , I ) ) / A ( 3 , I ) 


28 


0203 




CD(1 


,2)=CD(1,2)-(B(49,I)-B(41,I) )/A(3,I) 


28 


0204 




CO(l 


,3)=CD(1,3)-(B(50,I)-B(42,I))/A(3,I) 


28 


0205 




CD ( 1 


,4)=CD(1,4).(B(47,I)-B(39,I))/A(3,I) 


28 


0206 


170 


IF ( I 


•EQ.L(43) • AND.L (4 1 ) .GT.O) GO TO 180 


28 


0207 




CD ( 2 


,1)=CD(2,1)-(B(40,I)-B(44,I))/A(3,I) 


28 


0208 




CD ( 2 


,2)=CD(2,2)-(B(41,I)-B(45,I))/A(3,I) 


28 


0209 




CD ( 2 


,3)=CD(2,3)-(B(42,I)-8(46,I) )/A(3,I) 


28 


0210 




CD ( 2 


,4) =CD (2,4) ♦ (B (39, I ) -B (43, I ) ) /A (3, I ) 


28 


0211 


180 


IF ( I 


•EQ.L(43) .AND. L(42) .GT.O) GO TO 200 


28 


0212 




CD ( 3 


,1)=CD(3.1)-(B(44,I)-B(48*I))/A(3»I) 


28 


0213 




CD (3 


,2)=CD(3,2)-(B(45,I)-B(49,I) )/A(3,I) 


28 


0214 




CD (3 


,3)=CD(3,3)-(B(46,I)-B(50,I) )/A(3,I) 


28 


0215 




CD ( 3 


,4) =CD (3,4) ♦ (B (43,1 )-B (47,1 ) )/A( 3,1) 


28 


0216 


200 


CONTINUE 


28 


0217 




RETURN 


28 


0218 




END 




28 


0219 



non n n n n n n n n 
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SUBROUTINE CDCOMP 

SET UP THE VOLTAGE EQUATIONS OF THE COMMERCIAL POWER SYSTEM. 

INVERT THESE EQUATIONS TO COMPUTE THE COEFFICIENTS D(100) TO 29 

D(lll) RELATING THE DERIVATIVES OF THE CURRENTS FROM THE SYSTEM TO 29 
THE MAIN BUS TO THE CURRENT DERIVATIVES OF THE RL LOAD OF THE MAIN 29 
BUS. THE RUN IS ABORTED IF A SINGULAR MATRIX IS INVOLVED IN THIS 
INVERSION, AND A COMMENT IS WRITTEN IN TAPE 6. 

COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD FROM THE SYSTEM. 

COMMON A,B,BO,C,CD,D,EG,EP,F,G,GB,Q,VV,W.X,XL,XM,Y,Z,L,LGl ,LG2,LG3 
1»LP1*LP2*LP3* TITLE, HEAD 
DIMENSION A (80, 35) ,B(99,35) ,80(8) ,C(50) ,CD(3*4) ,D( 120) ,EG ( 50 ) ,EP ( 529 0010 
10) ,F (316) ,G(21 ,35) ,GB (3,4,9) ,Q (316) ,VV (21,9) ,W (6,6,9) ,XL(6, 10,35) ,29 0011 
2XM (6,10,9) , Y (316) »Z (6,6,35) ,L( 134) ,LG1 (50) ,LG2 (50 ) ,LG3 (50 ) ,LP1 (50)29 0012 



29 0000 
29 0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 



29 

29 

29 

29 

29 



3 *LP2 (50 > ,LP3(50),TITLE(39) , HE AD (39) 



29 0013 



8 


FORMAT ( 1H1 ,25HA8N0RMAL EXIT FROM CDCOMP/60H THE EQUATIONS OF THE C 


29 


00 1 A 




1 OMMERC I AL POWER SYSTEM ARE DEGENERATE) 




29 


0015 




NU=L(1)»L(2)*L(3)»L(4),1 




29 


0016 




J=L (NU*50 ) 




29 


0017 




J1=J*1 




29 


0010 




J2=J*2 




29 


0019 




TO 20 — , COMPUTE THE PHASE VOLTAGES OF THE POWER SYSTEM. 


29 


0020 




C1=C<41) 




29 


0021 




IF(X.GE.C(43) • AND.X.LE.C (45) ) C1=C1* ( 1 ,0*C (44) ) 


29 


0022 




C2=376.9911 15*X,C (42) 




29 


0023 




D(96)=C1*C0S(C2) 




29 


0024 




C1=0.866025404*C1*S!N(C2) 




29 


0025 




C2=-0.5*D<96) 




29 


0026 




D (97 ) =C2*C1 




29 


0027 


20 


D (98 ) =C2-C 1 




29 


0020 




TO ABOVE 7 — , SET UP VOLTAGE EQUATIONS. 




29 


0029 




TO 70 — , GENERAL EXPRESSIONS. SUFFICIENT FOR 


THREE PHASE FAULT ON 


29 


0030 




PRIMARY OF TRANSFORMER. 




29 


0031 




C1=C(35)*2.0*C(37) 




29 


0032 




C2=C(36),2.0*C(38) 




29 


0033 




XU1=C1 




29 


0034 




XU2=-C ( 37 ) 




29 


0035 




XU3=-C (37) 




29 


0036 




XU4=-C2*Y(J),C(38)*(Y(J1)*Y( J2) ) -D ( 1 6) *D ( 22 ) 




29 


0037 




XU5=-D( 19) 




29 


0030 




Xu6=-C ( 37 ) 




29 


0039 




XU7=C1 




29 


0040 




XU8=-C (37) 




29 


0041 




XU9=-C2*Y ( J1 ) *C(38)*(Y( J) ,Y( J2) ) -D ( 1 7 ) *D ( 23 ) 




29 


0042 




XUl 0=-D (20 ) 




29 


0043 




XlJl 1 =-C ( 37 ) 




29 


0044 




XUl 2=-C ( 37 ) 




29 


0045 




XUl 3=C1 




29 


0046 




XU14=-C2*Y ( J2) *C (38) * <Y( J) *Y ( J1 ) ) -D < 1 8 ) *D (24) 




29 


0047 


70 


XU15=-D ( 2 1 ) 




29 


0040 




IF (X.GE.CI47) .AND.X.LE.C(48) ) GO TO 2 




29 


0049 




TO 30 — , ADJUSTMENTS FOR NO FAULT ON PRIMARY 


OF TRANSFORMER. 


29 


0050 


1 


XU1=XU1 *2.0»C (39) 




29 


0051 




XU2=XU2-C(39) 




29 


0052 




XU3=XU3-C (39) 




29 


0053 




XU4=XU4-2.0*C(40)*Y ( J) *C (40 ) * ( Y ( J1 ) *Y ( J2) ) *D ( 96) -D ( 97) 


29 


0054 




XU6=XU6-C (39) 




29 


0055 




XU7=XU7*2.0*C (39) 




29 


0056 




XU8=XU8-C ( 39) 




29 


0057 




XU9=XU9-2.0*C(40)*Y(J1)*C(40)*(Y( J),Y( J2) ) ♦D(97)-D(98) 


29 


0050 



o o 
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XU11=XU11-C<39) 






29 


0059 




XU12=XU12-C(39) 






29 


0060 




XU13=XU13+2.0*C(39) 






29 


0061 


30 


XU14=XU14-2.0*C(40)*Y (J2) ^(40)* <Y(J> + Y< J1 ) ) »D (98) -D ( 96) 


29 


0062 




GO TO 7 






29 


0063 


2 


IF(L(8)-1) 1*3*4 






29 


0064 




TO 40 — * ADJUSTMENTS FOR ONE PHASE FAULT 


ON PRIMARY OF 


TRANSFORMER 


29 


0065 


3 


XU1 =XU 1 ♦C ( 39 ) 






29 


0066 




XU2 Z XU2-C ( 39 ) 






29 


0067 




XU4=XU4-C (40)*(Y(J)-Y(J1 ) )-D(97) 






29 


0068 




XU6=XU6-C<39) 






29 


0069 




XU7=XU7^2.0*C (39) 






29 


0070 




XU8*XU8-C<39) 






29 


0071 




XU9*XU9-2.0*C(40)*Y( J1 ) +C (40 ) * ( Y ( J ) +Y ( J2 ) ) + D ( 97 ) -D ( 98 ) 




29 


0072 




XU12=XU12-C(39) 






29 


0073 




XU13=XU13*C(39) 






29 


0074 


40 


XU1 4=XU 14-C(40)*(Y (J2)-Y < J 1 ) ) +D<98) 






29 


0075 




GO TO 7 






29 


0076 


4 


IF <L (8) -3 ) 5.7,6 






29 


0077 




TO 50 — , ADJUSTMENTS FOR TWO PHASE FAULT 


ON PRIMARY OF 


TRANSFORMER 


29 


0078 


5 


XU7=XU7+C (39) 






29 


0079 




XU8=XU8-C (39) 






29 


0080 




C1=C(40)*(Y(J2)-Y(J1> >-D<99> 






29 


0081 




XU9=XU9+C1 






29 


0082 




XU12=XU12-C(39) 






29 


0083 




XU13=XU13+C(39) 






29 


0084 


50 


XU1 4=XU 1 A— C 1 






29 


0085 




GO TO 7 






29 


0086 




TO 60 — , ADJUSTMENTS FOR L INE-TO-LINE FAULT ON PRIMARY 


OF TRANS- 


29 


0087 




FORMER. 






29 


0088 


6 


XU7=XU7+1.5*C(39> 






29 


0089 




XU8=XU8-1.5*C(39) 






29 


0090 




C1=1.5*C(40)*(Y< J1)-Y(J2> ) +1.5*0(98) 






29 


0091 




XU9=XU9-C1 






29 


0092 




XU12=XU12-1.5*C(39) 






29 


0093 




XU13=XU13*1 .5*C(39) 






29 


0094 


60 


XU14=XU1A+C1 






29 


0095 




TO 10 — . COMPUTE D(100) TO D(lll). 






29 


0096 


7 


C1=XU7*XU13-XU12*XU8 






29 


0097 




C2=XU2»XU13-XU12«XU3 






29 


0098 




C3=XU2*XU8-XU7*XU3 






29 


0099 




DET=XU1*C1-XU6*C2+XU11*C3 






29 


0100 




IF(ABS(DET) .GT.1.0E-30) GO TO 9 






29 


0101 




SINGULAR MATRIX. ABORT RUN. 






29 


0102 




WR I TE ( 6, 8) 






29 


0103 




CALL EXIT 






29 


0104 


9 


D( 100) = (XU4«C1-XU9*C2*XUU*C3)/DET 






29 


0105 




D(101)=XU5*C1/DET 






29 


0106 




D(102)=-XU10*C2/DET 






29 


0107 




D(103)=XU15«C3/DET 






29 


0108 




Cl= ( XU6*XU1 3-XUl 1 *XU8 ) /DET 






29 


0109 




C?=(XU1*XU13-XU1 1*XU3)/DET 






29 


0110 




C3=(XU1*XU8-XU6*XU3)/DET 






29 


0111 




D( 104)=XU9*C2-XU4*C1-XU14*C3 






29 


0112 




D ( 1 05) »-XU5*Cl 






29 


0113 




D ( 1 06 ) =XU1 0*C2 






29 


0114 




D(107)=-XU15*C3 






29 


0115 




C1=(XU6*XU12-XU11*XU7)/DET 






29 


0116 




C2=(XU1*XU12-XU11*XU2)/DET 






29 


0117 
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C3 = ( XU1 *XU7-XU6*XU2 ) /DET 








29 


0118 




0(108)=XU4*C1-XU9»C2»XU14*C3 








29 


0119 




0(109) =XU5*C1 








29 


0130 




0<110)=-XU10*C2 








29 


0131 


10 


0(111 )=XU15*C3 








29 


0133 




COMPUTE THE CONTRIBUTIONS TO THE 1 


MATRIX CD, 


29 


0133 




IF(NU.EQ.L(43) .AND.L<40) .GT.O) 


GO 


TO 


11 


29 


0134 




CD (1.1>=CD( 1.1) -0(101) 








29 


0135 




CD(1.2)=CD(1.2)-D(102) 








29 


0136 




CD(1.3)=CD<1.3)-D(103> 








29 


0137 




CD(1.4)=CD(1.4).D<100> 








29 


0138 


11 


IE (NU.EO.L (43) ,AN0.L(41) .GT.O) 


GO 


TO 


12 


29 


0139 




CD(2«1)=CD(2«1)-D(105) 








29 


0130 




CD (2.2) =CD(2«2) -0(106) 








29 


0131 




CD(2«3)=CD(2*3)-O(107) 








29 


0133 




CD(2.4)=CD(2»4)*O(104) 








29 


0133 


12 


IFINU.EQ.L (43) .AND.L(42) .GT.O) 


GO 


TO 


14 


29 


0134 




CD(3«1)=CD (3.1) -0(109) 








29 


0135 




CD ( 3. 2 ) =CD ( 3.2 ) -0 ( 1 1 0 ) 








29 


0136 




CD(3.3)=CD(3.3)-D(111) 








29 


0137 




CO ( 3.4 ) =C0 (3*4)*D(108) 








29 


0138 


14 


RETURN 








29 


0139 




ENO 








29 


0140 



r> n 
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SUBROUTINE COOR 30 0000 

C COMPUTE THE CONTRIBUTIONS TO THE MATRIX CD FROM THE DUPLEX REACTOR 30 0001 

COMMON A.B,B0.C,CD,D*EG.EP.F»G.GB.C).VV.W*X,XL«XM»Y.Z.L*LG1.LG2.LG3 30 0002 
1»LP1,LP2.LP3, TITLE. HEAD 30 0003 

DIMENSION A(80,35> ,B (99,35) ,B0<8) ,C (50) ,CD(3.4> ,D< 120) *EG(50) ,EP(530 0004 
10) ,F (316) ,G (21,35) ,GB (3,4,9) ,0(316) ,VV(21,9) «W (6,6,9) ,XL (6, 10,35) ,30 0005 
2XM (6,10,9) »Y (316) ,Z(6,6,35) ,L (134) ,LG1 (50) ,LG2(50) ,LG3(50) ,LP1 (50) 30 0006 



3,LP2 (50 ) , LP3 (50 ) .TITLE (39) .HEAD (39) 






30 


0007 


J=L (31 )-5 






30 


0008 


TO 2—, COMPUTE THE INSTANTANEOUS VALUES OF 


THE 


PHASE RESISTANCE 


30 


0009 


AND INOUCTANCE OF THE RL LOAD REPRESENTING 


HVPS 


NUMBER 2. 


30 


0010 


D ( 77) =C ( 23 ) 






30 


0011 


D ( 78 ) =C < 24 ) 






30 


0012 


IF ( X ,LT . C (29) ) GO TO 1 






30 


0013 


TO ABOVE 1 — , VALUES FOR STEP CHANGE OF LOAD OF 


HVPS NUMBER 2. 


30 


0014 


0 = 1 .O^C (30 ) 






30 


0015 


D ( 77) =C1 *D (77) 






30 


0016 


0(78) =C1*D<78) 






30 


0017 


1 IF(X.LT.C<26) .0R.X.GT.C(27) ) GO TO 2 






30 


0018 


TO ABOVE 2—9 VALUES DURING CROWBAR IN HVPS 


NUMBER 2. 


30 


0019 


D ( 77 ) =C ( 28 ) 






30 


0020 


D ( 78 ) =0 • 0 






30 


0021 


2 C1=1.0/(C(19)*C<21) ) 






30 


0022 


C2=1.0/(C(19)*D(77) ) 






30 


0023 


C3=1.0-C(18)*(C1*C2) 






30 


0024 


C1=C1/C3 






30 


0025 


C2=C2/C3 






30 


0026 


C3=C1*C2 






30 


0027 


C2=C2* (C (20 ) ♦D ( 78 ) ) 






30 


0028 


Cl =C2-C1* (C (20 ) ♦C ( 22 ) > 






30 


0029 


D (79) = C 1 *Y ( J* 3 ) ♦C2*Y ( J ) ♦C3*D ( 1 6 ) *D ( 22 ) 






30 


0030 


0 ( 80 ) =C1 *Y ( J*4 ) ♦C2*Y ( J* 1 ) ♦C3*0 ( 1 7 ) *D ( 23) 






30 


0031 


D(81 )=C1*Y ( J ♦ 5 ) *C2 # Y ( J*2) ♦C3*D(18) # D(24) 






30 


0032 


D (82 ) =C3 






30 


0033 


CD(lfl)=CD(lfl ) ♦C3*D(19) 






30 


0034 


CD ( 1 1 4 ) =CD ( 1 1 4 ) -D ( 79 ) 






30 


0035 


CD ( 2 • 2 ) =CD (2*2) *C3*D(20) 






30 


0036 


CD(2t4)=CD(?*4)-D(80) 






30 


0037 


CD ( 3 f 3 ) =CD ( 3f 3) ^3*0(21 ) 






30 


0038 


CD(3*4)=CD(3f4)-D(8l ) 






30 


0039 


RETURN 






30 


0040 


END 






30 


0041 



noon 
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SUBROUTINE MBSOLV 






31 


0000 




SOLVE FOR THE CURRENT DERIVATIVES OF THE RL 


LOAD OF THE MAIN 


BUS 31 


0001 




BY TR I ANGULAR I Z ING THE MATRIX CD. 






31 


0002 




THE RUN IS ABORTED IF THE MATRIX IS 


SINGULAR 


. AND A COMMENT IS 31 


0003 




WRITTEN IN TAPE 6. 






31 


0004 




COMMON A,B.B0*C.CD,D.EG*EP*F,6.GB.0.VV.W*X*XL.XM*Y.Z*L.LG1.L62.LG3 31 


0005 




1 *LP1 .LP2.LP3. TITLE. HEAD 






31 


0006 




DIMENSION A ( 80 .35) *R(99*35) *00(8) *C(50) *CD(3*4) *0(120) *EG(50) 


,EP ( 531 


0007 




10) *F( 316) *G (21 *35) .68(3.4,9) ,0(316) 


,VV(21,9) *W(6.6»9) , XL <6, 10 


,35) ,31 


0008 


2XM(6.10.9),Y(316) ,Z<6.6,35> ,L(134) . 


LG1 (50) .LG2(50) ,LG3(50) ,LP1 (50)31 


0009 




3* LP2 (50 ) ,LP3(50) *TITLE(39) .HEAD (39) 






31 


0010 


101 


FORMAT (1H1,25HABN0RMAL EXIT FROM MBSOL V/26H 


THE CD MATRIX IS 


SINGU 31 


0011 




1LAR/1H0,4(1X,E12.5) ) 






31 


0012 




1=4 






31 


0013 


37 


1 = 1-1 






31 


0014 




IF ( ABS (CO ( I * I ) ) - 1 . 0E-30 ) 38*38 9 45 






31 


0015 


38 


IF(I-l) 39*39,40 






31 


0016 




SINGULAR MATRIX. ABORT RUN. 






31 


0017 


39 


WRITE (6* 101) ( (CD(I*J) *J=1*4) ,1=1*3) 






31 


0018 




CALL EXIT 






31 


0019 


40 


11 = 1 






31 


0020 


41 


11=11-1 






31 


0021 




IF (ABS (CD (I 1,1) )-1.0E-30) 42*42,43 






31 


0022 


42 


IF(Il-l) 39,39*41 






31 


0023 


43 


DO 44 K= 1 , I 






31 


0024 




W 1 =CD ( I * K ) 






31 


0025 




CD ( I * K ) =CD ( 1 1 * K ) 






31 


0026 


44 


CD ( 1 1 * K ) =W1 






31 


0027 




W1=CD( 1,4) 






31 


0028 




CD ( I ,4 ) =CD (11,4) 






31 


0029 




CD (11,4) =W 1 






31 


0030 


45 


11=1-1 






31 


0031 




IF (II) 48,48,46 






31 


0032 


46 


DO 47 K= 1 , I I 






31 


0033 


47 


CD( I ,K ) =CD ( I,K)/CD( 1,1) 






31 


0034 


48 


CD(I,4)=CD( I,4)/CD(I,I) 






31 


0035 




IF(II) 75,75,70 






31 


0036 


70 


11=1-1 






31 


0037 


71 


I F ( CD ( 1 1 , 1 ) ) 72,74,72 






31 


0038 


72 


DO 73 K=1 , I I 






31 


0039 


73 


CD( I1,K)=CD( I1,K)-CD( 11,1 ) *CD ( I , K ) 






31 


0040 




CD ( 1 1 , 4 ) =CD ( 1 1 , 4 ) -CD ( 1 1 * I ) *CD ( I , 4 ) 






31 


0041 


74 


11=11-1 






31 


0042 




IF ( 1 1 ) 37,37,71 






31 


0043 


75 


0(25) =CD (1,4) 






31 


0044 




D(26)=CD(2,4)-CD(2,1 ) *D ( 25 ) 






31 


0045 




D(27)=CD(3,4)-CD(3*1 ) #D ( 25 ) -CD (3,2) *D ( 26 ) 




31 


0046 




RETURN 






31 


0047 




END 






31 


0048 



o o 
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SUBROUTINE FMACH 32 0000 

COMPUTE THE DERIVATIVES OF THE WINOING CURRENTS OF THE ROTATING 32 0001 

MACHINES CONNECTED TO THE MAIN BUS. 32 0002 

COMMON A,B,BO»C,CD,D,EG»EP.F,G,GB,Q, VV » W, X , XL, XM, Y » Z »L» LG1 ,LG2, LG3 32 0003 

1 ,LP1,LP2»LP3, TITLE, HEAD 32 0004 

DIMENSION A (80. 35) ,B (99,35) ,B0<8> ,C(50> .CD (3, 4) .0(120) .EG (50) .EP(532 0005 
10) ,F (316) ,G (21,35) .GB (3.4,9) ,0(316) ,VV( 21.9) .W (6.6.9) .XL (6, 10.35) ,32 0006 
2XM(6,10,9) .Y (316) ,Z (6.6,35) ,L( 134) ,LG1 (50) .LG2 (50) .LG3 (50) .LP1 (50)32 0007 
3,LP2(50) ,LP3(50) ,TITLE(39) ,HEAD(39) 32 0008 

NS=L ( 1 ) *L(2) *L (3) 

DO 61 1=1, NS 
J=L ( I *50) 

J1=J»1 
J2= J»2 
J3=J*3 
J4= J .4 

IF(I.NE.L(43) .OR.L(40) .LE.O) GO TO 51 

PHASE A OF THE MACHINE IS DISCONNECTED FORM THE MAIN BUS. 

F ( J) =0 . 0 
GO TO 52 

51 F ( J) =XL (1.7,1 ) ♦XL(1,8, I) *0(25) »XL (1,9. I ) «D ( 26 ) »XL ( 1.10. I) *D(27) 

52 IF( I .NE.L (43) .OR.L (41 ) .LF.O) GO TO 54 
PHASE B OF THE MACHINE IS DISCONNECTED FROM THE MAIN BUS. 

F ( J1 > =0 • 0 
GO TO 55 

54 F(J1)=XL(2»7,I).XL(?,8,I)*D(25)*XL(2.9,I)*D(26)*XL(2.10.I)*D(?7)-F 32 0025 
1 ( J) *XL (2,1.1) 

55 IF(I.NE.L(43).OR.L(42).LE.O) GO TO 58 
PHASE C OF THE MACHINE IS DISCONNECTED FROM THE MAIN BUS. 

F ( J2 ) =0 • 0 
GO TO 59 

58 F( J2)=XL(3,7, I ) *XL (3,8, I) «D(25) ♦XL(3,9,I ) *D(26) »XL (3» 10. I) *D(27)-F 32 0031 
1 ( J) *XL( 3.1 ,1 )-F ( J 1 ) * XL < 3.2.1) 

59 F( J3)=XL (4,7, I ) *XL (4,8, I)«D(25) *XL (4.9, I ) *0(26) *XL (4.10.1 ) *D(27)-F 
1(J)*XL< 4,1,1 )-F(Jl)*XL(4,2,I)-F(J2)*XL(4, 3,1) 

F(J4) = XL (5 , 7, I ) - F(J)*XL(5»1.I) - F ( J1 ) *XL (5,2, I ) - F(J2)*XL(5» 

13,1) - F ( J3) *XL (5,4,1) 

LI=L (1*99) 

GO TO (60.60,61) ,LI 

60 J5=J*5 

F(J5) = XL ( 6,7, I ) - F(J)*XL (6,1,1) - F ( Jl ) *XL (6, 2, I ) 

13,1) 

61 CONTINUE 
RETURN 
END 



12 


0009 


32 


0010 


32 


0011 


32 


0012 


32 


0013 


32 


0014 


32 


0015 


32 


0016 


32 


0017 


32 


0018 


32 


0019 


32 


0020 


32 


0021 


32 


0022 


32 


0023 


32 


0024 


32 


0025 


32 


0026 


32 


0027 


32 


0028 


32 


0029 


32 


0030 


32 


0031 


32 


0032 


32 


0033 


32 


0034 


32 


0035 


32 


0036 



32 0037 
32 0038 
32 0039 
F ( J2) *XL ( 6 , 32 0040 
32 0041 
32 0042 
32 0043 
32 0044 



o o 
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SUBROUTINE FTRAN 33 0000 

COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE DISTRI- 33 0001 

BUTION TRANSFORMERS CONNECTED TO THE MAIN BUS. 33 0002 

COMMON A,B.B0,C,CD,D.EG.EP,F,G,GB.Q.VV,W,X.XL»XM.Y»Z.L»LG1.LG2,LG3 33 0003 

1.LP1.LP2.LP3, TITLE. HEAD 33 0004 

DIMENSION A (80 .35) .B (99.35) ,B0<8) ,C(50) .CD (3. A) »D(120> .EG (50) .EP<533 0005 
10) .F (316) .G (21 .35) .68(3.4,9) ,0(316) .VV (21,9) *W(6.6.9) .XL (6. 10.35) .33 0006 
2XM (6,10,9) ,Y (316) ,Z (6,6.35) ,L (134) ,LG1 (50) ,LG2 ( 50 ) , LG3 ( 50 ) ,LP 1 (50)33 0007 
3,LP2(50) »LP3(50) ,TITLE(39) ,HEAD(39) 33 0008 

N1=L(1)-*L(2)*L(3)-H 33 0009 

N2=N1 *L (4) -1 33 0010 

DO 100 I=N1,N2 33 0011 

J=L ( I *50 ) 33 0012 

F(J)=B(39,I)*8(40,I)*D(25)*B(41,I)*D(26)»B(42.I)*D(27) 33 0013 

F(J*1)=B(43»I)*B(44,I)*D(25)*B(45,I)*D(26)*B(46,I)*D(27) 33 0014 

F(J.2)=B(47,I).B(48,I) *D ( 25 ) *B (49, I ) *D ( 26) *B ( 50 , I ) »D ( 27) 33 0015 

100 CONTINUE 33 0016 

RETURN 33 0017 

END 33 0018 



r> o 
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SUBROUTINE ECOMP 34 0000 

COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE COMMERC- 34 0001 

I4L POWER SYSTEM. 34 0002 

COMMON A , B , BO , C .CD , D ♦ EG , EP » F »G , GB , Q , V V » W ♦ X » XL. XM , Y ♦ Z ♦ L » LG 1 , LG2 ♦ LG3 34 0003 

1 *LP1 *LP2*LP3*TITLE*HEAO 34 0004 

DIMENSION A (80 ♦ 35 ) «B ( 99* 35 > «BO < 8 ) »C (50 ) *CD < 3*4) *D ( 1 20 ) .EG (50) *EP(534 0005 
10) *F (316) .6(21.35) *GB( 3*4,9) ,0(316) *VV (21*9) *W (6.6.9) *XL (6. 10.35) *34 0006 
2XM (6, 10,9) »Y (316) .Z (6.6,35) »L(134) ,LG1 (50) »LG2(50) »LG3(50) .LP1 (50)34 0007 
3,LP2(50) ,LP3(50) , T ITLE < 39 ) .HEAD (39) 34 0008 





Nil = L ( 1 ) ♦ L ( 2 ) ♦ L ( 3 ) ♦ L (4 ) ♦ 1 




34 


0009 




J=L (NU*50 ) 




34 


0010 




J1=J*1 




34 


0011 




J2= J*2 




34 


0012 




IF(NU.NE.L(43) . OR .L (40 ) . LE .0 ) GO TO 1 




34 


0013 




PHASE A OF THE SYSTEM IS DISCONNECTED FROM THE MAIN 


BUS. 


34 


0014 




F ( J) =0 . 0 




34 


0015 




GO TO 2 




34 


0016 


1 


F( J)=D( 100) *D( 101) *0(25) *D( 102) *D (26) ♦0(103) *D (27) 




34 


0017 


2 


IF(NU.NE.L(43) .OR.L(41 ) .LE.O) GO TO 3 




34 


0018 




PHASE b OF THE SYSTEM is disconnected from THE MAIN 


BUS. 


34 


0019 




F ( J1 ) =0 .0 




34 


0020 




GO TO 4 




34 


0021 


3 


F(J1)=D(104)»D(105)*D(25)*D(106)*D(26)*D(107)*D(27) 




34 


0022 


4 


IF(NU.NE.L(43) .0R.L(42) .LE.O) GO TO 5 




34 


0023 




PHASE C OF THE SYSTEM IS DISCONNECTED FROM THE MAIN 


BUS. 


34 


0024 




F ( J2 ) =0 . 0 




34 


0025 




GO TO 6 




34 


0026 


5 


F( J2)=D(108) *D( 109)*D(25> »D(1 10)*D(26> *D(1 1 1 >*D(27> 




34 


0027 


6 


RETURN 




34 


0028 




END 




34 


0029 



155 



SUBROUTINE FOR 35 0000 

C COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE DUPLEX 35 0001 

C REACTOR AND HI6H VOLTAGE POWER SUPPLY NUMBER 1. 35 0002 

COMMON A«B»BO»C*CD»D»EG»EP»F»G»GB»Q*VV*W*X«XL»XM*YfZ*L*LGl*LG2»LG3 35 0003 
1»LP1*LP2*LP3»TITLE»HEAD 35 0004 

DIMENSION A (80 « 35 ) * B (99 * 35 ) »BO (8) *C (50 ) » CD ( 3*4) « D ( 1 20 ) ♦ EG (50 ) *EP(535 0 0 05 
10) *F (316) .6(21 t 35) .GB (3.4, 9) .0(316) .VV (21.9) *W (6*6.9) *XL <6. 10.35) .35 0006 
2XM(6« 10 »9) .Y(316> .Z (6.6.35) ,L (134) ,LG1 (50) .LG2(50> .LG3(50> .LP1 (50)35 0007 
3.LP2(50)»LP3(50).TITLE(39)*HEAD(39) 35 0008 



C1=1.0/(2.0*C(19) *C(21) ♦D(77) ) 


35 


0009 


C2=C1* (C( 19) *0(77) ) 


35 


0010 


C3=C1*(C(20)*D(78> ) 


35 


0011 


C1=C1*(C(20)*C(22))*C3 


35 


0012 


J = L (31 ) -5 


35 


0013 


J1 = J*3 


35 


0014 


F(J)=-D(79)-D(82)*D(19)*D(25) 


35 


0015 


F(J1)=-C2*F(J)-C3*Y(J)-C1*Y( Jl) 


35 


0016 


J=J»1 


35 


0017 


J1 = Jl*l 


35 


0018 


F( J)=-D(80)-D(82) *D ( 20 ) *D ( 26) 


35 


0019 


F(J1 )=-C2«F( J)-C3*Y( J)-C1*Y( Jl) 


35 


0020 


J = J*1 


35 


0021 


Jl = Jl*l 


35 


0022 


F(J)=-D(81)-D(82)*D(21 )*D(27) 


35 


0023 


F(J1)=-C2«F(J)-C3*Y(J)-C1*Y(J1) 


35 


0024 


RETURN 


35 


0025 


END 


35 


0026 



no oooooo 
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SUBROUTINE FREG 36 0000 
COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE REGULA- 36 0001 
TORS OF THE GENERATING UNITS. 36 0002 
COMPUTE THE AVERAGE THREE-PHASE POWERS AND THE PEAK REACTIVE POW- 36 0003 
ERS PER PHASE OF THE GENERATING UNITS. AND THEIR CONTRIBUTIONS TO 36 0004 
THE LOAD OF THE MAIN BUS. ALSO. COMPUTE THE FIELD FORCING CURRENTS 36 0005 



AND THE FIELD VOLTAGES OF THE GENERATING UNITS. 



36 0006 



COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1 .LG2.LG3 36 0007 
1 .LP1 .LP2.LP3.TITLE.HEAD 36 0008 

DIMENSION A ( 80.35) .B (99,35) .BO (B) .C (50) .CD (3. A) ,D( 120) .EG (50) .EP<536 0009 
10) ,F(316) ,G(21 ,35),GB( 3.4,9) ,0(316) ,VV (21.9) .W (6.6,9) .XL (6, 10.35) .36 0010 
2XM(6.10»9) ,Y (316) »Z(6.6,35) .L (134) ,LG1 (50 ) »LG2 ( 50 ) »LG3 (50 ) ,LP1 (50)36 0011 
3.LP2(50) .LP3(50) .TITLE (39) ,HEAD(39) 36 0012 



NT=L ( 1 ) 


36 


0013 


TO 39—, COMPUTATION OF AVERAGE THREE-PHASE POWERS AND OF 


PEAK RE- 36 


00 1 A 


ACTIVE POWERS PER PHASE. 


36 


0015 


DO 39 1=1. NT 


36 


0016 


J=L (1*50) 


36 


0017 


J2=J ♦ 1 


36 


0018 


J3=J2* 1 


36 


0019 


B(1 ,I)=0.001* (D(35)*Y (J) *D(36)*Y (J2) *D(37)*Y( J3) ) 


36 


0020 


B(2.I)=1.9245E-4*(Y(J)*D(39) ♦ Y < J2 ) *D (40) *Y ( J3 ) *D ( 38) ) 


36 


0021 


D(3)=D(3)*B(1.I) 


36 


0022 


D (4 ) =D (4 ) *B ( 2, I ) 


36 


0023 


CONTINUE 


36 


0024 


TO ABOVE 701 — » FOR REACTIVE LOAD SHARE CONTROL. 


36 


0025 


SW=10.0 


36 


0026 


IF (L(S).LE.O) GO TO 700 


36 


0027 


TAP = D (3 ) -D (5 ) 


36 


0028 


IF (TAP.LE.1.0E-10) GO TO 702 


36 


0029 


NU=L (1)*L(2)*L(3)*L(4)*1 


36 


0030 


J=L ( NU«50 ) 


36 


0031 


CA = D ( 28 ) -Y ( J ) 


36 


0032 


CB = D < 29 ) - Y(J*1) 


36 


0033 


CC = D ( 30 ) -Y ( J*2) 


36 


0034 


GO TO 701 


36 


0035 


TAP = D (3) 


36 


0036 


IF(TAP.GT.1.0E-10)G0 TO 703 


36 


0037 


SW=0.0 


36 


0038 



038 = ABS (D < 38 ) ) 

039= ABS ( D ( 39 ) ) 

D40=ABS (0(40) ) 

GO TO 701 
703 CA=D (28 ) 

CB = D ( 29 ) 

CC = D ( 30 ) 

TO 52 — , COMPUTE THE DERIVATIVES. 
DO 52 1=1, NT 
J=L (1*50) 

J8=J*7 
J9= J+8 
J10 = J»9 
J11=J*10 



701 



36 0039 
36 0040 
36 0041 
36 0042 
36 0043 
36 0044 
36 0045 
36 0046 
36 0047 
36 0048 
36 0049 
36 0050 
36 0051 
36 0052 

TO 704 — , COMPUTE THE FIELD FORCING CURRENT AND THE FIELD VOLTAGE. 36 0053 
B(13»I)=2.0*(A(12»I)*A(31»I))*(B(5»I)*(A(1 . I ) ♦ A ( 2, I ) ♦ 1 .5* A ( 3 36 0054 

1.I))*(Y(J)«B(19,I)*Y(J*1)*B(23,I)*Y(J*2)*B(21.I) > -D ( 35) *B < 20 , 1 ) - 36 0055 

2D(36)*B(24.I)-D(37)*B(22.I) ) /(3.0« A (31 ♦ I ) *A (4, I ) *R (5. I ) ) 36 0056 

B ( 14 » I ) =A < 31 » I ) * <B ( 1 3 » I ) — Y ( J*3) ) *Y ( J8 ) 36 0057 

704 IF (ABS(B( 14, I) ) .GT . A ( 32. I ) ) B < 14, I ) »SIGN < A (32. I ) »B ( 14, I ) > 36 0058 



o n 
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F( J9)=(A (29. I )»(B<14. I )-A(36. I) )-Y ( J9) )/A<30. I > *A (37. I) 36 0059 

F(J8) = <A<27. I >« (A (22. I >-Y< J10)-F (J9> >-Y ( J8> ) /A (28.1) 36 0060 

F(J10)*Y(J11> 36 0061 

TO 616—. THREE-PHASE FULL WAVE RECTIFIER AND REACTIVE LOAO SHARE 36 0062 

CONTROL. 36 0063 

IF (SW.LE.0.0) GO TO 616 36 0064 

XLS=B(1. I)/TAP 36 0065 

038 = ABS(O(30)*A(23.I)*(Y(J*2)-XLS*CC)) 36 0066 

039 * ABS(0(39) *A (23. I) *(Y (J)-XLS*CA) ) 36 0067 

040 = ABS(0(40)*A(23.I)*(Y(J*1)-XLS*CB)) 36 0068 

616 B ( 1 2 . I ) = AMAX1 (D38.039 .040 ) 36 0069 

5? F(J11) = (A(24,I)*B(12.I)-A(25.I)*Y(J11)-Y(J10) )/A(26.I) 36 0070 

RETURN 36 0071 

ENO 36 0072 



no on o non on 
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SUBROUTINE YPRIMG 37 0000 

THIS IS A MAIN SUBROUTINE IN THE COMPUTATION OF THE DERIVATIVES OF 37 0001 

THE DEPENDENT VARIABLES OF THE GENERATORS OF THE MG SETS. 37 0002 

COMMON A,B,B0,C*CD,D*EG,EP,F*G,GB.Q,VV,W.X*XL,XM*Y,Z*L,LG1,LG2,LG3 37 0003 

1*LP1*LP2*LP3*TITLE*HEAD 37 0004 

DIMENSION A ( 80 * 35) ,8(99*35) *BO(8> * C < 50 > . CD < 3, 4 > , D ( 1 20 ) , EG ( 50 > ,EP ( 537 0005 
10) *F(316) *6(21* 35 ),GB(3*4*9)*Q(316)*VV(21*9)*W(6*6*9), XL (6*10*35) *37 0006 
2XM(6* 10*9) *Y (316) *Z (6*6*35) *L (134) ,LG1 (50) *LG2(50) *LG3(50) *LP1 (50) 37 0007 
3*LP2(50) *LP3(50) *TITLE(39) ,HEAD(39) 37 0008 





TO 250 — t COMPUTE THE DERIVATIVES 


OF THE WINDING 


CURRENTS OF 


THE 


37 


0009 




SYNCHRONOUS ALTERNATORS* 












37 


0010 




TO 50— ♦ SET UP THE INDUCTANCE 


AND ((IMPEDANCE)) 


MATRICES. 




37 


0011 




call lmatg 












37 


0012 




CALL IMATG 












37 


0013 




CALL satg 












37 


0014 


50 


CALL SATEEG 












37 


0015 




CALL RLGB 












37 


0016 




N1 =L ( 1 ) ♦ 1 












37 


0017 




N2=N1 ♦L (2 ) - 1 












37 


0018 




TO 100 — * COMPUTE THE CURRENTS 


OF 


THE RL LOADS. 








37 


0019 




DO 100 I=N1 «N2 












37 


0020 




B ( 86 * I ) =0 . 0 












37 


0021 




B ( 87 * I ) =0 • 0 












37 


0022 




B ( 88 * I ) =0 • 0 












37 


0023 




K=L ( I ♦SO ) ♦e 












37 


0024 




J=I 












37 


0025 




IF (A (69* I) .LT.0.0) J=J-1 












37 


0026 




B<86, J)=B(86, J) ♦ Y (K ) 












37 


0027 




B(87*J)=B(87*J)*Y(K*1) 












37 


0028 


100 


B(88tJ)=B(88*J) ♦Y (K*2) 












37 


0029 




CALL XMMAT 












37 


0030 




CALL TRIAG 












37 


0031 




TO 200 — ♦ SET UP THE MATRIX GB 


CONTAINING THE COEFFICIENTS OF 


THE 


37 


0032 




EQUATIONS RELATING THE CURRENT 


DERIVATIVES OF THE 


RL 


LOADS. 




37 


0033 




DO 120 I=N1*N2 












37 


0034 




J=I-L<1> 












37 


0035 




DO 120 K=l»3 












37 


0036 




DO 120 M = l*4 












37 


0037 


120 


GB(K,Mt J)=0.0 












37 


0038 




CALL GBMAT 












37 


0039 




DO 200 I=N1*N2 












37 


0040 




IF C 4(69.1) .LT.0.0) GO TO 200 












37 


0041 




Jsl-L(l) 












37 


0042 




IF(X.LT.A(75, I ) .OR.X.GT. A (76* I ) ) i 


GO TO 150 








37 


0043 




TO 130 — . ADJUST MATRIX GB DURING 


LINE-TO-LINE FAULTS 


ON BUSES OF 


37 


0044 




MG SETS. 












37 


0045 




K=IFIX (A (77*1 ) *0.00000001 ) 












37 


0046 




IF (K .LE. 3 ) GO TO 150 












37 


0047 




GB ( 2* 1 * J) =GB (2* 1 . J) *GB(1»1*J)*1 


• 0 










37 


0048 




GB ( 2 * 2 * J ) =GB ( 2 * 2 * J ) *GB ( 1 *2* J) *1 


.0 










37 


0049 




GB(2*3*J)=GB(2*3*J) *GB(1*3*J) 












37 


0050 




GB ( 2*4 * J) =GB ( 2* 4* J) *GB ( 1 * 4 * J) 












37 


0051 




GB ( 3 * 3 . J ) =GB ( 3 * 3 * J ) ♦ 1 . 0 












37 


0052 




GB(1*1.J)=B(83.I) 












37 


0053 




GB ( 1 * 2* J) =-8 (84*1) 












37 


0054 




GB ( 1 * 3. J) =0 .0 












37 


0055 


130 


GB(1*4. J) =8 (81.1) *8 (87.1) -8 (80, 


I)*B(86, I) 








37 


0056 




GO TO 200 












37 


0057 


150 


GB(1,1,J)=GB(1,1*J).1.0 












37 


0058 



o o 
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GB(2,2.J)=GB(2,2.J) *1.0 
GB(3.3,J)=GB<3,3, J) *1.0 
200 CONTINUE 

CALL GBSOLV 
250 CALL FGEN 



TO 300 


- 


~ , 


COMPUTE 


THE 


PHASE 


AND 


L 


OF THE 




MG 


SETS 


• 












00 300 




1 = 


N1 , N2 














IF (A(69 


, I 


) .LT. 


0.0 


) GO 


TO 


300 






B ( 74 , I 


) 


=B 


(80,1 


) *B 


(86,1 


) ♦B 


(83 


,1) 


*B 


B ( 75 , I 


) 


=B 


(81,1 


)*B 


(87,1 


) *B 


(84 


,1) 


*B 


B ( 76 , I 


) 


=B 


(82,1 


)*B 


(88, I 


) ♦B 


(85 


,1) 


*B 


B ( 77 , I 


) 


=B 


(74,1 


) -B 


(75,1 


) 








B (78 , I 


) 


= B 


(75,1 


) -B 


(76,1 


) 








B ( 79 , I 


) 


= B 


(76,1 


) -B 


(74,1 


) 









300 CONTINUE 
CALL FREGG 
RETURN 
END 





37 


0059 




37 


0060 




37 


0061 




37 


0062 




37 


0063 


I NE-TO-L INE 


VOLTAGES OF THE BUSES 37 


0064 




37 


0065 




37 


0066 




37 


0067 


(89*1) 


37 


0068 


(90.1) 


37 


0069 


(91,1) 


37 


0070 




37 


0071 




37 


0072 




37 


0073 




37 


0074 




37 


0075 




37 


0076 




37 


0077 



n n 
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SUBROUTINE LMATG 




38 


0000 


SET UP THE INDUCTANCE MATRICES, WITHOUT 


FIELD SATURATION EFFECTS t 


38 


0001 


OF THE SYNCHRONOUS ALTERNATORS OF THE MG 


SETS • 


38 


0002 


COMMON A,B,B0,C,CD,D»EG,EP,F,G,GR»Q»VV»W,X»XL»XM»Y»Z,L,LG1 *LG2*LG3 


38 


0003 


1 ,LP1 ,LP2,LP3,TITLE,HEAD 




38 


0004 


DIMENSION A (80,3*5) ,B<99,35> ,BO(8) ,C(50) , 


CD ( 3 14 ) * D ( 1 20 ) 9 EG ( 50 ) * EP ( 538 


0005 


10) ,F (316) ,G (21,35) ,GB (3, 4,9) ,0(316) ,VV< 21 ,9) »W (6,8,9) , XL (6,10,35) , 


38 


0006 


2XM(6,10,9) ,Y (316) *Z (6,6,35) *L ( 1 34) ,LG1 (50) ,LG2(50) ,LG3(50) ,LP1 (50)38 


0007 


3,LP2(50) , LP3 ( 50 ) , TITLE (39) , HEAD (39) 




38 


0008 


CC=0. 866025404 




38 


0009 


N1=L(1) *1 




38 


0010 


N2=N1 ♦ L < 2 ) — 1 




38 


0011 


DO 10 I=N1 ,N2 




38 


0012 


J= I-L ( 1 ) 




38 


0013 


K=L < I -*50 ) ♦ 14 




38 


0014 


XM(1,1,J)=A(31,I) 




38 


0015 


XM(2,1,J)=-A(32,I) 




38 


0016 


XM(3,1,J)=XM(2,1,J) 




38 


0017 


XM(2,2,J)=XM(1,1,J) 




38 


0018 


XM(3,2,J)=XM(2,1,J) 




38 


0019 


XM(3,3, J)=XM( 1,1 ,J) 




38 


0020 


B(49,I)=COS(Y(K) ) 




38 


0021 


B(50,I)=SIN(Y(K) ) 




38 


0022 


Cl =0 ,5*B ( 49, I ) 




38 


0023 


C2=CC*B(49,I) 




38 


0024 


C3=0. 5*8(50, 1) 




38 


0025 


C4=CC*B (50,1) 




38 


0026 


B(51,I)=-C1-C4 




38 


0027 


B (52, I ) =-C3*C2 




38 


0028 


B (53, I ) =-Cl *C4 




38 


0029 


B (54, I ) =-C3-C2 




38 


0030 


XM ( 4 , 1 , J ) =— A ( 34 *I)*R(49*I) 




38 


0031 


XM<4,2, J) =-A(34,I)*B(53,I) 




38 


0032 


XM(4,3, J)=-A(34,I)*R(51,I) 




38 


0033 


XM(4,4, J)=A(37,I) 




38 


0034 


XM ( 5, 1 . J)=-A <35, I) *B<49, I) 




38 


0035 


XM(5,2,J)=-A(35*I)*B(53*I) 




38 


0036 


XM(5,3,J)=-A(35*I)*B(51 ,1) 




38 


0037 


XM(5,4,J)=A(38, I) 




38 


0038 


XM(5,5,J)=A(39,I) 




38 


0039 


XM<6,1, J)=A(36, I) *8(50, I) 




38 


0040 


XM(6,2,J)=A(36,I)*B(54,I) 




38 


0041 


XM(6,3,J)=A(36,I)»B(52,I) 




38 


0042 


IF (A (33, I) ,LE. 0.0) GO TO 8 




38 


0043 


TO ABOVE 8—, SALIENCY EFFECTS. 




38 


0044 


B (55* I ) =2.0*8(49, I )*B <49, I) -1.0 




38 


0045 


B( 56, 1) =2. 0*8 (49, 1) *8 (50, 1) 




38 


0046 


Cl =0 .5*R (55,1) 




38 


0047 


C?=CC*B (55,1) 




38 


0048 


C3=0 .5*B (56,1) 




38 


0049 


C4=CC*B(56, I) 




38 


0050 


8(57,1) =-Cl -C4 




38 


0051 


B (58 , I ) =-C3*C2 




38 


0052 


B (59, I ) s-Cl *C4 




38 


0053 


B ( 60 , I ) =-C3-C2 




38 


0054 


XM(1,1,J)=XM(1,1,J),A(33,I)*B(55,I) 




38 


0055 


XM(2,1 ,J)=XM(2,1,J) *A ( 33, I ) *B (59, I ) 




38 


0056 


XM(3,1,J)=XM(3,1,J),A(33,I)*B(57,I) 




38 


0057 


XM(2,2, J)=XM(2,2, J) »A (33, I) *B(57,I) 




38 


0058 
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XM(3.2.J)=XM<3.2. J) ♦ A < 33* I ) *B < 55* I ) 


38 


0059 


XM<3,3. J)=XM <3,3* J) *A<33* I) *B<59. I) 


38 


0060 


XM(i*2*J)=XM(2*l*J) 


38 


0061 


XM(1*3*J)=XM(3*1*J) 


38 


0062 


XM<1.4,J)=XM<4,1,J> 


38 


0063 


XM(1*5*J)=XM(5*1*J) 


38 


0064 


XM(2*3. J)=XM (3,2, J) 


38 


0065 


XM<2*4, J)=XM<4,2, J) 


38 


0066 


XM(2*5*J)=XM(5*2*J) 


38 


0067 


XM<3*4*J)=XM<4.3* J) 


38 


0068 


XM(3*5*J)=XM(5.3«J) 


38 


0069 


XM<4*5.J)=XM<5*4, J) 


38 


0070 


XM(1*6*J)=XM(6*1*J) 


38 


0071 


XM<2*6,J)=XH(6*2.J) 


38 


0072 


XM(3*6*J)=XM(6*3*J) 


38 


0073 


XM(4*6.J)=XM<6,4,J) 


38 


0074 


XM(5*6*J)=XM(6*5*J) 


38 


0075 


CONTINUE 


38 


0076 


RETURN 


38 


0077 


ENO 


38 


0078 
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SUBROUTINE IMATG 39 0000 

C SET UP THE < < IMPEDANCE ) ) MATRICES. WITHOUT FIELD SATURATION EE- 39 0001 

C EECTS. OE THE SYNCHRONOUS ALTERNATORS OF THE MG SETS. 39 000? 

COMMON A*8»B0»C»CD.0*EG»EP*E*G»GB»Q»VV»W»X»XL«XM*Y»Z*L»LG1»LG2»LG3 39 0003 
1.LP1.LP2.LP3. TITLE. HEAD 39 0009 

DIMENSION A <80.351 .B (99.35) .BO (8) .C (50) .CD (3.4) .D( 120) ♦ EG (50 ) . EP < 539 0005 
10).E(316).G(21.35).GB(3.4,9).Q(316).VV(?1.9).W(6.6.9).XL(6.10.35).39 0006 
?XM (6. 1 0 . 9) ,Y (316) .Z(6»6«35) »L<134) ,LG1 (50) .LG2(50) .LG3(50) .LP1 (50) 39 0007 





N1=L ( 1 ) ♦ 1 


39 


0009 




N2=N1*L<2>-1 


39 


0010 




DO 10 I=N1 *N2 


39 


0011 




Jsl-L(l) 


39 


0012 




IF ( A ( 33* I) *LE * 0 * 0 ) 60 TO 3 


39 


0013 




TO ABOVE 3 — • SALIENCY EFFECTS. 


39 


0014 




CC=-2.0*A(33» I)*B(5*I) 


39 


0015 




W<2* 1*J)=CC*B(60*I) 


39 


0016 




W ( 3 * 1 ♦J)=CC°B(58»I ) 


39 


0017 




W (3 1 2 ♦ J ) =CC*B ( 56 « I ) 


39 


0018 




W ( 1 * 1 * J ) = A (4 1 • I ) ♦W(3*2fJ) 


39 


0019 




W ( 2 * 2 t J ) = A ( 4 1 * I ) ♦W(3»1*J) 


39 


0020 




W(3»3tJ)=A(41 *I)^W(2*ltJ) 


39 


0021 




60 TO A 


39 


0022 


3 


W(Itl«J) =A ( 4 1 « I ) 


39 


0023 




W ( 2 ♦ 1 *J)=0.0 


39 


0024 




W(3*1*J>=0.0 


39 


0025 




W ( 2 * 2 * J) = A (4 1 * I ) 


39 


0026 




W(3*2*J)=0.0 


39 


0027 




W ( 3 * 3 * J ) =A (4 1 ♦ I ) 


39 


0028 


4 


CC=A<34,I)*B(5,I) 


39 


0029 




W ( 4 * 1 ♦J)=CC°B(50* I) 


39 


0030 




W { 4 * 2 * J ) =CC*R (54* I ) 


39 


0031 




W (4 *3* J) = CC*B (52* I ) 


39 


0032 




CC=A(35fI)*B(5*I) 


39 


0033 




W(5* 1*J)=CC*B<50.I) 


39 


0034 




W(5*2*J)=CC*B(54* I) 


39 


0035 




W(5*3*J)=CC*B(52*I) 


39 


0036 




CC=A(36,I)»B<5, I) 


39 


0037 




W(6tl*J)=CC»B(49,I) 


39 


0038 




W(6*2*J)=CC»B<53*I> 


39 


0039 




W (6*3* J) =CC*B (51 9 I ) 


39 


0040 




W(l*4f J)=W(4tltJ) 


39 


0041 




W ( 1 * 5 * J ) =W ( 5 1 1 * J) 


39 


0042 




W ( 2 *4 ♦ J ) =W ( 4 * 2 ♦ J ) 


39 


0043 




W(2*5tJ)=W(5f2fJ) 


39 


0044 




W(3*4*J)=W(4*3*J) 


39 


0045 




W(3*5»J)=W(5*3*J) 


39 


0046 




W(lt2»J)=W(2il*J) 


39 


0047 




W ( 1 ♦ 3 ♦ J ) =W ( 3 * 1 9 J ) 


39 


0048 




W(2*3tJ)=W(3»2*J) 


39 


0049 




W(1 *6* J)=W (6tl ♦ J) 


39 


0050 




W(2»6*J)=W(6*2*J) 


39 


0051 




W (3*6* J) =W (6*3* J) 


39 


0052 


10 


CONTINUE 


39 


0053 




RETURN 


39 


0054 




end 


39 


0056 



o o o o 
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SUBROUTINE SAT6 40 0000 
DETERMINE IF THE FIELDS OF THE SYNCHRONOUS ALTERNATORS OF THE MG 40 0001 
SETS ARE SATURATED. AND COMPUTE THE FIELD FLUX LINKAGES. THE EQUI- 40 0002 
VALENT FIELD SATURATION CURRENTS. AND THE DERIVATIVES OF THE 40 0003 
LATTER WITH RESPECT TO THE FORMER. 40 0004 



COMMON A.B.BO.C.CD.O.EG.EP.F.G.GB.Q. VV.W.X.XL.XM.Y 
1 .LP1.LP2.LP3. TITLE. HEAD 

DIMENSION A (80.35) .B (99. 35) .BO (8) .C (50) .CD (3.4) .D( 
10 ) »F (316) ,G(21 .35) .GB (3.4.9) ,0(316) .VV (21.9) . W (6.6 
2XM (6, 10.9) ,Y(316),Z(6,6,35),L(134) ,LG1 (50) ,LG2(50‘ 
3,LP2(50) ,LP3(50> .TITLE (39) .HEAD (39) 

N1=L (1 ) *1 
N2=N1 *L (2 ) -1 
DO 10 I=N1,N2 
J=L ( 1*50) *7 
B (34, I ) =0.0 
N=I-L ( 1 ) 

DO 4 K=1 ,5 
M = J + K 

* R(34,I)=B(34,I)*XM(4,K,N)*Y(M) 

IF (B (34, I) .GT.A(45,I) ) GO TO 6 
B (35, I ) =0 .0 



.Z.L.LG1.LG2.LG3 40 0005 
40 0006 

120) »EG(50) ,EP(540 0007 
,9) .XL (6. 10.35) ,40 0008 
,LG3(50) ,LP1 (50)40 0009 
40 0010 
40 0011 
40 0012 
40 0013 
40 0014 
40 0015 
40 0016 
40 0017 
40 0018 
40 0019 
40 0020 



B(36» I ) =0 . 0 40 0022 

L (N*86 ) = 1 40 0023 

GO TO 10 40 0024 

6 Cl=A(45,I)-0.5/(A(46,I)*A(37,I)) 40 0025 

C2=C1*C1 *B ( 34 » I ) / ( A (46 , 1 ) *A (37 , 1 ) ) ~A (45 , I ) *A ( 45 . I ) 40 0026 

C2=S0RT(C2) 40 0027 

B ( 34 ♦ I ) =C1 *C2 40 0028 

B(35. I )=A(46. I) * (B(34, I)-A(45, I) )*(B(34. I)-A(45. I ) ) 40 0029 

B(36»I)=2.0*A(46»I)*(B(34»I)-A(45»I)) 40 0030 

L (N»86) =2 40 0031 

10 CONTINUE 40 0032 

RETURN 40 0033 

END 40 0034 



o o 
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SUBROUTINE SATEFG 




41 


0000 


ADD THE FIELD SATURATION EFFECTS TO THE INDUCTANCE AND 


( ( IMPED- 


41 


0001 


ANCE>> MATRICES OF THE SYNCHRONOUS ALTERNATORS OF THE 


MG SETS. 


41 


0002 


COMMON A,B.B0*C,CD,D,EG*EP,F,G,GB*Q,VV,W,X»XL*XM,Y,Z*L»LG1»LG2,LG3 


41 


0003 


1 *LP1 »LP2»LP3,TITLE*HEAD 




41 


0004 


DIMENSION A (80, 35) .8(99,35) .80(8) ,C(50) ,CD(3. A) *0(120) 


♦ EG ( 50 ) ♦ EP ( 54 1 


0005 


10) ,F(316> ,G(2i,35) ,68(3, A, 9) ,0(316) ,VV(21,9> ,W (6,6,9) , XL (6, 10. 35) . 


41 


0006 


2XM(6,10,9) ,Y (316) » Z (6,6,35) » L ( 1 34) ,LG1 (50) ,LG2(50) ,LG3(50) ,LP1 (50)41 


0007 


3,LP2(50),LP3(50) .TITLE (39) , HE AD (39) 




41 


0008 


N1=L ( 1 > ♦ 1 




41 


0009 


N2=N1 *L (2 ) - 1 




41 


0010 


DO 10 I=N1,N2 




41 


0011 


J= I-L ( 1 ) 




41 


0012 


L80=L ( J*86 ) 




41 


0013 


GO TO (10.5) ,L80 




41 


0014 


5 C1=A(34,I)»B(36,I)/(1.0*A(37,I)*B(36,I) ) 




41 


0015 


C2=C 1 *A ( 34 ♦ I ) 




41 


0016 


C3=C 1 *B ( 49 ♦ I ) 




41 


0017 


C4=C2*B (49, I ) 




41 


0018 


XM (1 ,1 ,J)=XM(1,1 . J) -C4*B (49, I ) 




41 


0019 


XM(2.1»J)=XM(2,1»J) -C4*B (53,1) 




41 


0020 


XM(3,1,J)=XM(3,1,J) -C4*8 (51,1) 




41 


0021 


XM (4, 1 , J)=XM (4, 1 , J) *C3*A (37, I) 




41 


0022 


XM(5.1,J)=XM(5,1.J) ♦C3*A(38,I) 




41 


0023 


C3=C1 *B (53,1) 




41 


0024 


C4=C2*B(53. I) 




41 


0025 


XM(2.2»J)=XM(2,2,J)-C4»B(53, I) 




41 


0026 


XM(3.2,J)=XM(3,2,J)-C4*B(51 ,1) 




41 


0027 


XM (4.2, J)=XM(4,2, J) *C3*A (37, I) 




41 


0028 


XM (5,2, J) =XM(5,2, J) *C3*A (38, I) 




41 


0029 


XM(3,3,J)=XM(3,3.J)-C2*B(51 .1) *8(51.1) 




41 


0030 


C3=C1*B (51 ♦ I ) 




41 


0031 


XM(4,3,J)=XM(4,3,J) »C3* A ( 37,1) 




41 


0032 


XM(5,3,J)=XM(5,3,J) *C3*A(38,I> 




41 


0033 


C3=C1 *A ( 37 ♦ I ) /A ( 34 , I ) 




41 


0034 


XM (4, 4 , J ) =XM ( 4,4, J) -C3*A ( 37 , I ) 




41 


0035 


XM (5,4, J) =XM(5,4. J)-C3*A(38, I ) 




41 


0036 


XM (5,5, J) =XM ( 5,5, J) -Cl * A ( 38, I ) * A ( 38, I ) /A ( 34 ♦ I ) 




41 


0037 


Cl =C 1*B (5, I ) 




41 


0038 


C2=C2*B (5,1) 




41 


0039 


C3=C 1 *B (50 , I ) 




41 


0040 


C4=C2*B (50,1) 




41 


0041 


W(1,1,J)=W(1,1,J) *C4*8 ( 49, I ) 




41 


0042 


W(2»1,J)=W(2,1,J) *C4*B (53,1) 




41 


0043 


W(3,1,J)=W(3,1,J) *04*8(51,1) 




41 


0044 


W(4,1,J)=W(4,1,J) -C3*A (37,1) 




41 


0045 


W(5.1,J)=W(5,1,J) -C3* A (38,1) 




41 


0046 


C3=C 1 *B ( 54 , I ) 




41 


0047 


C4=C2*B ( 54,1) 




41 


0048 


W ( 1 ,2, J) =W ( 1 ,2, J) *C4*B(49, I ) 




41 


0049 


W(2»2»J)=W(2»2,J) *C4*B (53, I ) 




41 


0050 


W(3,2,J)=W(3,2,J) *C4*B (51,1) 




41 


0051 


W(4,2,J)=W(4,2,J)-C3*A(37,I) 




41 


0052 


W(5,2,J)=W(5,2,J)-C3*A(38,I) 




41 


0053 


C3=C1*B (52, I ) 




41 


0054 


C4=C2*B (52,1) 




41 


0055 


W ( 1 , 3, J) =W ( 1 , 3, J) *C4*B (49, I ) 




41 


0056 


W(2,3,J)=W(2,3,J) *C4*B (53,1) 




41 


0057 


W(3,3,J)=W(3,3,J) *C4*B (51,1) 




41 


0058 
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W(4.3.J)=W(^*3.J)-C3*A(37»I) 


41 


0059 


41 


0060 


W (5« 3* J) =W (5»3« J) -C3*A ( 38 1 1 ) 


41 


0061 


XM(l»2tJ)=XM(2«l« J) 


41 


0062 


XM(1.3.J)=XM(3.1»J) 


41 


0063 


XM( J)=XM(A,lt J) 


41 


0064 


XM(1.5»J)=XM(5,1.J) 


41 


0065 


XM(2»3»J)=XM(3.2.J) 


41 


0066 


XM(2«4»J)=XM<4,2tJ) 


41 


0067 


XM(2*5*J)=XM(5«2tJ) 


41 


0066 


XM(3»4*J)=XM(A,3* J) 


41 


0069 


XM(3»5«J)=XM(5»3*J) 


41 


0070 


XM<<*.5. J)=XM<5.4. J) 


41 


0071 


Cl=A(34,I)*B(5tI) 


41 


0072 


B(37.I)=C1*B(50.I) 


41 


0073 


B(38*I)=C1«B(54.I) 


41 


0074 


B(39,I)=C1*B(52.I) 


41 


0075 


CONTINUE 


41 


0076 


RETURN 

END 


41 


0077 



on no on 



166 



SUBROUTINE RLGB 




42 


0000 


COMPUTE THE INSTANTANEOUS VALUES OF THE 


PHASE RESISTANCES AND IN- 


42 


0001 


DUCTANCES OF THE RL LOADS OF THE MG SETS 


• 


42 


0002 


COMMON A*B»BO*CfCD,D*EG*EP*F*G*GB*Q*VV»W 


,X*XL»XM*Y*Z*L»LG1,LG2,LG3 


42 


0003 


I tLPI*LP2*LP3* TITLE* HEAD 




42 


0004 


DIMENSION A <80 *35) *R (99*35) *B0<8> *C(50) ♦ 


CD(3»4) *0(120) fEG(50) *EP(542 i 


0005 


10) *F (316) *G (21*35) *GB (3*4*9) ,0(316) *VV (21*9) *W (6*6*9) *XL <6* 10*35) ♦ 


42 i 


0006 


2XM (6 » 10,9) » Y (316) *Z(6*6»35) *L (139) *LG1 (50) *LG2(50) *LG3(50) ,LP1 (50)42 i 


0007 


3.LP2I50) .LP3(50> .TITLE (39) * HEAD (39) 




42 1 


0008 


N1 =L ( 1 ) *1 




42 


0009 


N2=N1 »L (2 ) - 1 




42 


0010 


DO 100 I=N1«N2 




42 


0011 


Cl =A ( 70 * I ) 




42 


0012 


C2=A (71*1) 




42 


0013 


DO 10 J=80 * 82 




42 


0014 


B(J*3,I)=C2 




42 


0015 


10 B(J,I)=C1 




42 


0016 


IF ( X.LT . A (73 « I ) ) GO TO 20 




42 


0017 


TO 15—, STEP CHANGES IN THE RL LOADS. 




42 


0018 


Cl = l .0*A(79, I ) 




42 


0019 


DO 15 J=80 , 85 




42 


0020 


15 B(J,I)=C1«B(J,I> 




42 


0021 


20 IF (X.LT .A (78, 1 ) ) GO TO 30 




42 


0022 


TO 25—, SINUSOIDAL VARIATIONS OF THE RL 


LOADS. 


42 


0023 


C1=A(79,I)«(X-A(78,I> ) 




42 


0024 


C2=1.0*A(80,I)*SIN(C1) 




42 


0025 


C1=A(79,I)*A(80,I)*COS(C1) 




42 


0026 


DO 25 J=80 , 82 




42 


0027 


K=J*3 




42 


0028 


B(J,I)=C2*B(J,I)»C1*B(K,I) 




42 


0029 


25 8 (K , I ) =C2*8 (K , I ) 




42 


0030 


30 IF (X.LT .A(75,I) .OR.X.GT .A(76,I) ) GO TO 100 


42 


0031 


TO 100 — , ADJUST VALUES DURING ONE, TWO, 


OR THREE PHASE FAULTS ON 


42 


0032 


BUSES OF MG SETS. 




42 


0033 


K=IFIX (A (77,1) *0.00000 001) 




42 


0034 


IF (K.LE.O.OR.K.GT.3) GO TO 100 




42 


0035 


GO TO (70,60,50) ,K 




42 


0036 


50 B (82, 1 ) =0 . 0 




42 


0037 


B (85 , 1 ) =0 . 0 




42 


0038 


60 B(81,I>=0.0 




42 


0039 


B (84 » I ) =0 . 0 




42 


0040 


70 B (80 , I ) =0 . 0 




42 


0041 


B (83, I ) =0.0 




42 


0042 


100 CONTINUE 




42 


0043 


RETURN 




42 


0044 


END 




42 


0045 



o o o o 



167 



SUBROUTINE XMMAT 




43 


0000 


SET UP THE MATRIX XM CONTAINING THE COEFFICIENTS OF THE 


EQUATIONS 


43 


0001 


RELATING THE WINDING CURRENT DERIVATIVES OF THE SYNCHRONOUS ALTER- 


43 


0002 


NATORS OF THE MG SETS TO THE CURRENT DERIVATIVES OE THE 


RL LOADS 


43 


0003 


OF THE RESPECTIVE BUSES. 




43 


0004 


COMMON A,B.B0.C.CD.D»EG,EP.F,G,GB,Q,VV.W,X.XL»XM,Y»Z,L.LG1.LG2,LG3 


43 


0005 


1.LP1 .LP2.LP3, TITLE. HEAD 




43 


0006 


DIMENSION A(80*35> » B ( 99, 35) .BO (8) *C(50) .CD < 3, A) »D( 120) ♦ 


EG ( 50 ) *EP(5^3 


0007 


10) «F(316) vGCZltaS) tGB(3*4*9) «0(316) •VV(21«9) «W(6t699) •XL(6«10«35) « 


43 i 


0008 


2XM (6*10*9) .Y(316) .2(6.6.35) ,L ( 1 34 ) *LG1 (50) .LG2 ( 50 ) *LG3 ( 50 ) .LP1 (50)43 < 


0009 


3.LP2(S0) .LP3(50) .TITLE (39) .HEAD (39) 




43 i 


0010 


N1=L< 1 ) *1 




43 


0011 


N2=N1 *L (2 ) -1 




43 


0012 


00 100 I=N1.N2 




43 


0013 


J=L ( I *50 ) *8 




43 


0014 


K=I-L< 1) 




43 


0015 


M=I 




43 


0016 


IF (A(69,I ) .LT.0.0) M=M-1 




43 


0017 


C1=B(80»M)*B<86.M> 




43 


0018 


C2=B(81,M>*B(87,M> 




43 


0019 


C3=B(82,M)*B(88,M) 




43 


0020 


TO 2 — . CONTRIBUTIONS FROM THE GROUNDING REACTORS. 




43 


0021 


C4=A (61.1) 




43 


0022 


IF (C4.LE.0.0) GO TO 3 




43 


0023 


DO 2 11=1.3 




43 


0024 


DO 2 12=1.3 




43 


0025 


2 XM(I1.I2.K)=XM(I1.I2,K) *C4 




43 


0026 


3 DO 10 11=1.6 




43 


0027 


DO 5 12=7,10 




43 


0028 


5 XM (11.12. K)=0.0 




43 


0029 


10 CONTINUE 




43 


0030 


XM(1,7.K)=-CI*B(35,I)*B(37»I) 




43 


0031 


XM ( 1 . 8.K ) =-B < 83.M) 




43 


0032 


XM(2.7,K)=-C2*B(35»I)*B(38.I) 




43 


0033 


XM ( 2.9.K) =-B (84.M) 




43 


0034 


XM ( 3.7 .K ) =-C3*B ( 35. I ) *B ( 39. I ) 




43 


0035 


XMO.IO.K) =-B (85.M) 




43 


0036 


TO 35—, CONTRIBUTIONS FROM THE FIELD VOLTAGE. (EXCITER 


MODEL.) 


43 


0037 


IF ( ABS ( Y < J ♦ 7 ) ) .GT.A<60,I>> Y < J*7> =S IGN < A < 60 , I ) , Y < J* 7) ) 




43 


0038 


IF ( ABS (8(42,I)).LT.A(59,I)) GO TO 30 




43 


0039 


XM ( 4. 7.K ) =S IGN (A(59,I),B(42,I)) 




43 


0040 


GO TO 40 




43 


0041 


30 C4=2.0* ( A (42. I ) ♦ A ( 58 , I ) ) / ( 3 . 0*A (34, I ) *B ( 5. I ) ) 




43 


0042 


C5=C4*(A(31,I)*A(32,I)*1.5*A<33,I) )*B(5,I) 




43 


0043 


XM (4 ,7»K ) =C5* ( Y < J ) *H ( 49 . I ) ♦ Y ( J* 1 ) *B (53. I ) *Y ( J*2 ) *B (51 . I ) )-C4*(B(80 


43 


0044 


1 ,M)*B(86,M) *B(50. I) *B(81 ,M) *B ( 87, M ) *B (54. I ) *B ( 82, M ) *B ( 88, M) *B(52» I 


43 


0045 


2) )*Y(J*7)-A(58,I)*Y(J*3) 




43 


0046 


XM (4 ,8 »K ) =-C4*B (83,M)*B(50.I ) 




43 


0047 


XM (4 .9.K ) =-C4*B ( 84.M) *B ( 54 ♦ I ) 




43 


0048 


35 XM(4,10.K) =-C4*B ( 85 , M) *B(52.I) 




43 


0049 


40 DO 60 11=1.6 




43 


0050 


DO 50 12=1,6 




43 


0051 


N=J* 12-1 




43 


0052 


50 XM(I1,7,K)=XM(I1,7,K)-W(I1,I2.K)*Y(N) 




43 


0053 


60 CONTINUE 




43 


0054 


100 CONTINUE 




43 


0055 


RETURN 




43 


0056 


END 




43 


0057 



noon 
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SUBROUTINE TRIAG 44 0000 

FOR EACH SYNCHRONOUS ALTERNATOR OF THE MG SETS* TRIANGULARIZE THE 44 0001 

CORRESPONDING PART OF THE MATRIX XM. 44 0002 

THE RUN IS ABORTED IF ANY SUCH PART OF XM IS SINGULAR* AND A COM- 44 0003 

MENT IS WRITTEN IN TAPE 6. 44 0004 

COMMON A.B«B0.C*CD*D*EG.EP*F*G*GB*Q* VV* W* X * XL* XM* Y * Z *L * LG1 *LG2.LG3 44 0005 

1 *LP1 *LP2.LP3. TITLE. HEAD 44 0006 

DIMENSION A <80*35) .8(99.35) *BO (8) *C (50) .CD (3. 4) *0( 120) .EG (50) *EP(544 0007 
10 > *F(316) ,G(21.35) *GB<3.4.9) ,Q(316) *VV(21 .9) *W (6.6.9) ,XL(6. 10.35) .44 0008 
2XM(6»10»9).Y(316)»Z(6*6»35),L(134)*LG1 ( 50 ) . LG2 ( 50 ) . LG3 ( 50 > .LP 1 (50)44 0009 
3.LP2I50) .LP3(50) .TITLE(39) ,HEA0(39) 44 0010 

100 FORMAT (1H1.24HABN0RMAL EXIT FROM TRIAG/31H THE XM MATRIX OF MG SET 44 0011 



1 NUMBER. 13. 12H IS SINGULAR) 

NS=L(2) 

DO 23 1=1. NS 
J=7 

3 J=J-1 

IF(ABS(XM( J. J. I) 1-1.0E-30) 4.4.12 

4 IF(J-l) 5.5.6 

SINGULAR MATRIX. ABORT RUN. 

5 WR ITE (6. 1 00 ) I 
CALL EXIT 

6 J1=J 

7 J1=J1-1 

IF(ABS (XM( J1 . J. I) ) - 1 . 0E-30 ) 8.8.9 

8 IF(Jl-l) 5.5.7 

9 DO 10 K= 1 . J 
W 1 =XM ( J. K . I ) 

XM(J.K.I)=XM(J1,K.I) 

10 XM ( J1 < K . I ) =Wl 
DO 11 K=7 . 1 0 
W1=XM(J,K,I) 

XM (J.K, I)=XM(J1.K* I) 

11 XM(J1.K.I)=W1 

12 JJ=J-1 

IF(JJ) 15.15.13 

13 DO 14 K= 1 . J J 

14 XM(J.K.I)=XM(J.K.I)/XM(J.J.I) 

15 DO 16 K=7 .10 

16 XM(J.K,I)=XM(J.K,I)/XM(J,J,I) 

IF(JJ) 23,23.17 

17 J1=J-1 

18 IF ( XM (Jl.J.I) ) 19.22.19 

19 DO 20 K=1.JJ 

20 XM(J1.K.I)=XM(J1,K,I)-XM(J1,J,I)*XM(J 
DO 21 K=7 ,10 

21 XM( Jl.K, I)=XM(J1.K,I)-XM(J1, J,I)*XM(J 

22 J1=J1-1 
IF(J1) 3,3.18 

23 CONTINUE 
RETURN 
END 



44 0012 
44 0013 
44 0014 
44 0015 
44 0016 
44 0017 
44 0018 
44 0019 
44 0020 
44 0021 
44 0022 
44 0023 
44 0024 
44 0025 
44 0026 
44 0027 
44 0028 
44 0029 
44 0030 
44 0031 
44 0032 
44 0033 
44 0034 
44 0035 
44 0036 
44 0037 
44 0038 
44 0039 
44 0040 
44 0041 
44 0042 
44 0043 

K.I) 44 0044 

44 0045 

K.I) 44 0046 

44 0047 
44 0048 
44 0049 
44 0050 
44 0051 
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SUBROUTINE GBMAT 45 0000 

FOR EACH BUS OF THE MG SETS. COMPUTE THE CONTRIBUTIONS TO THE COR- 45 0001 
RESPONDING PART OF THE MATRIX GB FROM THE SYNCHRONOUS ALTERNATORS 45 0002 
CONNECTED TO THE BUS. 45 0003 

COMMON A.B,B0»C»CD,D,EG»EP,F,G,GB,Q,VV,W,X»XL.XM»Y»Z.L,LG1 .LG2.LG3 45 0004 
1.LP1.LP2.LP3. TITLE. HEAD 45 0005 

DIMENSION A<60«35) »B (99.35) .BO (8) .C(50) . CD < 3.4 ) *D< 120) .EG ( 50 ) . EP ( 545 0006 
10) .F (316) .6(21 .35) .GB< 3.4.9) ,Q (316) .VV<21.9> .W (6.6.9) .XL (6. 10.35) .45 0007 
2XM (6.1 0.9) .Y (316) .Z (6.6.35 ) .L< 134) «LG1 (50) .LG2150) .LG3150) .LP1 (50)45 0008 
3.LP2(50).LP3(50),TITLE(39)»HEAD(39) 45 0009 

N 1 =L < 1 ) ♦ 1 
N2=N1 *L (2) -1 
DO 35 I =N1 «N2 
J=I-L ( 1 ) 

K=J 

IF(A(69.I) .LT.0.0) K=K-1 
M=IFIX(B(98.I)*0.1) 

IF(I-M) 33.24.33 

24 IF ( B ( 95. I ) ) 25.25.27 

25 GB(1.1.K)=GB(1.1.K)-XM(1.8.J) 

GB ( 1 .2.K ) =GB (1.2»K)-XM(1*9.J) 

GB( 1.3. K)=GB< 1.3. K)-XM< 1.10. J) 

GB(1.4,K)=GB(1,4,K)*XM(1*7.J) 

IF ( B (96. I ) ) 26,26.31 

26 GB ( 2. 1 «K) =GB (2«1.K)-XM(2.8«J) *XM < 2. 1 ♦ J > *XM < 1 ♦ 8 » J) 
GB(2.2.K)=GB(2«2.K)-XM(2.9. J) *XM ( 2 . 1 . J) *XM ( 1 .9 , J) 
GB(2.3,K)=GB(2,3.K)-XM(2.10.J) »XM ( 2, 1 . J) *XM ( 1 . 1 0. J) 
GB(2.4.K)=GB(2,4,K)*XM(2,7, J) -XM < 2, 1 , J > *XM < 1 ♦ 7, J) 

IF (B (97 , I ) ) 34,34,35 

27 IF < B (96, 1 ) ) 28,28.30 

FOUR LINES DOWN—. CONTRIBUTIONS FROM PHASE B WHEN PHASE A OF AN 
ALTERNATOR IS DISCONNECTED FROM THE BUS. 

28 GB(2.1.K)=GB(2»1.K)-XM(2.8,J) 

GB ( 2.2.K) =GB (2 ,2 .K ) -XM<2»9,J) 

GB(2.3,K)=GB(2,3,K)-XM(2.10,J) 

GB(2.4,K)=GB(2,4,K)*XM(2.7, J) 

IF ( B (97, I ) ) 29,29,35 

FOUR LINES DOWN—. CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE A OF 45 
AN ALTERNATOR IS DISCONNECTED FROM THE BUS. 

29 GB(3.1»K)=GB(3.1.K)-XM(3.8. J) ♦XM(3»2.J)»XM(2.8»J) 
GB(3.2.K)=GB(3,2.K)-XM(3.9. J) »XM ( 3 .2. J ) *XM ( 2. 9, J) 
GB(3,3»K)=GB(3.3»K)-XM(3,10.J)*XM(3,2. J)*XM(2,10» J) 
GB(3.4,K)=GB(3.4.K)*XM(3.7, J) -XM < 3 » 2. J > *XM < 2. 7 » J) 

GO TO 35 

FOUR LINES DOWN—. CONTRIBUTIONS FROM PHASE C WHEN PHASES A ANO B 
OF AN ALTERNATOR ARE DISCONNECTED FROM THE BUS. 

30 IF <B(97,I) .GT.0.0) GO TO 35 
GB (3 « 1 ,K ) =GB (3,1»K)-XM(3»8.J) 

GB(3.2.K)=GB(3.2.K)-XM<3.9» J) 

GB ( 3, 3.K ) =GB (3.3»K)-XM(3.10,J) 

GB(3.4,K)=GB(3,4,K) *XM(3»7.J) 

GO TO 35 

31 IF <B <97, I ) ) 32,32.35 

FOUR LINES DOWN—, CONTRIBUTIONS FROM PHASE C WHEN ONLY PHASE B 01 
AN ALTERNATOR IS DISCONNECTED FROM THE BUS. 

32 GB(3,1.K)=GB(3«1,K)-XM(3«8,J) *XM (3. 1 , J) *XM ( 1 .8, J) 
GB(3.2»K)=GB(3,2,K)-XM(3»9.J)*XM(3.1»J)*XM(1,9»J) 
GB(3,3»K)=GB(3,3»K)-XM(3»10,J)*XM(3,1»J)*XM(1»10»J) 
GB(3,4,K)=GB(3.4.K)*XM(3»7.J)-XM(3.1»J)*XM(1,7.J) 



45 


0010 


45 


0011 


45 


0012 


45 


0013 


45 


0014 


45 


0015 


45 


0016 


45 


0017 


45 


0018 


45 


0019 


45 


0020 


45 


0021 


45 


0022 


45 


0023 


45 


0024 


45 


0025 


45 


0026 


45 


0027 


45 


0028 


45 


0029 


45 


0030 


45 


0031 


45 


0032 


45 


0033 


45 


0034 


45 


0035 


45 


0036 


45 


0037 


45 


0038 


45 


0039 


45 


0040 


45 


0041 


45 


0042 


45 


0043 


45 


0044 


45 


0045 


45 


0046 


45 


0047 


45 


0048 


45 


0049 


45 


0050 


45 


0051 


45 


0052 


45 


0053 


45 


0054 


45 


0055 


45 


0056 


45 


0057 


45 
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GO TO 35 

33 GB ( 1 f 1 * K ) = GB ( 1 1 1 1 K ) -XM ( 1 « 8 * J) 

GB(lt2*K)=GB(l*2*K)-XH(l*9»J) 

GR ( 1 * 3» K ) =GR ( 1 * 3 * K ) -XM ( 1 1 1 0 * J ) 

GB(lf4»K)=GB(lf4fK) ♦XH(1»7»J) 

GB(2f lfK)=GB(2f lfK)-XM(2f8f J) ♦XM ( 2 ♦ 1 f J ) *XM ( 1 f 8* J) 
GB<2f2fK)=GB(2f2fK)-XM(2f9f J)^XM(2f If J)*XH(lt9» J) 
GB(2f3fK)=GB(2f3fK)-XM(2fl0fJ)^XM(2flfJ)*XM(lfl0fJ) 

GB (2f 4,K)=GB(2f4fK) ♦XM ( 2 1 7 * J ) -XM ( 2 * 1 f J ) *XM ( 1 ♦ 7 1 J ) 

34 GB(3.1*K)=GB(3*1*K)-XM(3»8*J)>XM(3»2*J)*XM(2»8* J)*XM(l'8t J)*(XM(3f 
Ilf J)-XM<2f If J)*XM(3f2f J) ) 

GB(3f2fK)=GB(3f2fK)-XM(3f9fJ)^XM(3f2fJ) # XM(2f9fJ) ♦ XM ( lf9fJ)*(XM(3f 
Ilf J)-XM(2f If J)*XM(3f2f J) ) 

GB(3f3fK)=GB(3f3fK)-XM(3f 10f J) ♦XM ( 3f 2 f J) *XM ( 2f 1 0 f J) ♦XM ( 1 f 1 0 f J) * ( XM 
1 (3f If J)-XM(2t If J)*XM(3f2f J) ) 

GB(3f4fK)=GB(3f4fK) ♦ XM ( 3 f 7 f J ) -XM ( 3 f 2 f J ) *XM ( 2 f 7 f J ) -XM ( 1 f 7 f J ) * ( XM ( 3 f 
Ilf J)-XM(2f If J)*XM(3f2f J) ) 

35 CONTINUE 
RETURN 
END 
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SUBROUTINE GBSOLV 




46 


0000 




SOLVE FOR THE CURRENT DERIVATIVES OF THE RL 


LOADS OF THE BUSES OF 


46 


0001 




THE MG SETS BY TRI AnGULARIZING THE CORRESPONDING PARTS OF THE 


46 


0002 




MATRIX GB. 




46 


0003 




THE RUN IS ABORTED IF ANY SUCH PART OF THE MATRIX GB IS SINGULAR* 


46 


0004 




AND A COMMENT IS WRITTEN IN TAPE 6. 




46 


0005 




COMMON A,B*80*C*CD*D.EG«EP«F*G*GB*Q*VV*W,X*XL*XM*Y*Z*L.LG1*LG2*LG3 


46 


0006 




1«LP1»LP2.LP3*TITLE*HEAD 




46 


0007 




DIMENSION A(80*35) *B(99*35) *B0(8) *C(50) *CD<3 


♦ 4 ) *D< 120) *EG(50) *EP<546 


0008 




10) *F(316) .6(21*35) ,GB(3,A,9> *0(316) *VV(21*9) 


♦ W ( 6 ♦ 6 ♦ 9 ) fXL(6t 10*35) » 


46 


0009 




2XM(6*10*9),Y(316) *Z(6*6,35) *L(134) ,LG1 (50) *LG2(50) *LG3(50).LP1 (50)46 


0010 




3.LP2 ( 50 ) *LP3(50) *TITLE(39) .HEAD (39) 




46 


0011 


101 


FORMAT (1H1*25HABN0RMAL EXIT FROM GBSOLV/31H 


THE GB MATRIX OF MG 8U 


46 


0012 




IS NUMBER. 13. 12H IS SINGUL AR/1H0 .4 ( 1 X. E 12.5) ) 




46 


0013 




L2=L (2) 




46 


0014 




DO 100 K=1.L2 




46 


0015 




J=K*L ( 1 ) 




46 


0016 




IF(A(69, J) .LT.0.0) GO TO 100 




46 


0017 




1=4 




46 


0018 


37 


1 = 1-1 




46 


0019 




IF ( ABS (GB ( I » I .K ) 1-1.0E-30) 38.38,45 




46 


0020 


38 


IF(I-l) 39,39,40 




46 


0021 




SINGULAR MATRIX. ABORT RUN. 




46 


0022 


39 


WRITE (6. 101) K, ( (GB(I.M.K) ,M=1,4) ,1=1.3) 




46 


0023 




CALL EXIT 




46 


0024 


40 


11 = 1 




46 


0025 


41 


11=11-1 




46 


0026 




IF ( ABS ( GB (Il.I.K) ) -1 • 0E-30 ) 42,42,43 




46 


0027 


42 


IF ( I 1—1 ) 39,39,41 




46 


0028 


43 


DO 44 M=1 , I 




46 


0029 




W 1=GB ( I ,M,K) 




46 


0030 




GB( I,M,K)=GB( Il.M.K) 




46 


0031 


44 


GB ( I 1 ,M ,K ) =W1 




46 


0032 




W1=G8( I ,4,K) 




46 


0033 




GB ( I , 4 , K ) =GB ( I 1 , 4 , K ) 




46 


0034 




GB ( I 1 ,4 ,K ) =W1 




46 


0035 


45 


11=1-1 




46 


0036 




IF ( I I ) 48,48,46 




46 


0037 


46 


DO 47 M = 1 , 1 1 




46 


0038 


47 


GB ( I , M , K ) =GB ( I , M , K ) /GB ( I , I , K ) 




46 


0039 


48 


GB ( I,4,K)=GB(I,4,K)/GB(I , I,K) 




46 


0040 




IF ( I I ) 75,75,70 




46 


0041 


70 


11=1-1 




46 


0042 


71 


IF(GB( 11 ,I,K) ) 72,74,72 




46 


0043 


72 


DO 73 M=1 , I I 




46 


0044 


73 


GB ( Il.M.K) =GB (Il.M.K) -GB (Il.I.K) *G8 ( I , M, K ) 




46 


0045 




GB ( I 1 ,4 ,K ) =GB (I1,4,K)-GB(I1,I,K)*GB(I,4,K) 




46 


0046 


74 


11=11-1 




46 


0047 




IF ( 1 1 ) 37,37,71 




46 


0048 


75 


B(89,J)=GB(1,4,K) 




46 


0049 




B(90.J)=GB(2,4,K)-GR(2,1,K)»B(89, J) 




46 


0050 




B(91,J)=GB(3,4,K) -GB (3,1,K)*B(89,J) -GB (3,2,K)*8(90,J) 


46 


0051 


100 


CONTINUE 




46 


0052 




RETURN 




46 


0053 




END 




46 


0054 
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SUBROUTINE FGEN 47 0000 

COMPUTE THE DERIVATIVES OF THE WINDING CURRENTS OF THE ALTERNATORS 47 0001 

OF THE MG SETS. 47 0002 

COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1 .LG2.LG3 47 0003 

1.LP1.LP2.LP3.TITLE.HEAD 47 0004 

DIMENSION A (80. 35) .8(99.35) .80(8) .C (50) . CD (3. 4) .0(120) .EG (50) .EP(S47 0005 
10) «F (316) .G(21 .35) .GB (3.4.9) .0(316) .VV (21.9) .W (6.6.9) .XL (6. 10.35) .47 0006 
2XM(6.10.9) .Y (316) .Z(6.6.35) .L(134) ,LG1 (50 ) .LG2 (50 ) .LG3 ( 50 ) .LP1 (50)47 0007 
3«LP2(50).LP3(50).TITLE(39).HEAD(39) 47 0008 

N1 =L ( 1 ) ♦ 1 
N2=N1«L (2) -1 
DO 61 I=N1,N2 
J=L ( 1*50 > *8 
J1=J*1 
J2=J*2 
J3=J*3 
J4=J*4 
J5=J*5 
K=l -L ( 1 ) 

N=l 

IF(A(69.I) .LT.0.0) N=N-1 
L43=IFIX(B(98.I) *0.1) 

IF(I.NE.L43.0R.B(95.I).LE.O.O) GO TO 51 
PHASE A OF ALTERNATOR IS DISCONNECTED FROM BUS. 

F ( J) =0 . 0 
GO TO 52 

51 F( J)=XM(1 ,7.K) *XM (1 ,8.K) *B(89.N) .XM(1.9,K)*B(90.N)*XM(1,10,K)«B(91 47 

I. N) 

52 IF (I.NE.L43.0R.B(96,I) .LE.0.0) GO TO 54 
PHASE B OF ALTERNATOR IS DISCONNECTED FROM BUS. 

F ( J1 ) =0 • 0 
GO TO 55 

54 F ( J 1 ) =XM (2.7.K) ♦XM(?.8.K)*B(89.N).XM(2.9.K)*B(90.N) *XM (2. 1 0 .K ) *B (9 47 

II. N)-F(J)*XM(2.1.K) 

55 IF( I ,NE.L43.0R.B(97.I) .LE.0.0) GO TO 58 
PHASE C OF ALTERNATOR IS DISCONNECTED FROM BUS. 

F ( J2 ) =0 . 0 
GO TO 59 

58 F( J2)=XM(3.7,K) *XM (3.8.K) *B (89.N) *XM ( 3. 9.K ) »B ( 90 .N ) ♦XM ( 3. 10 .K ) *B ( 9 47 
1 1 . N ) -F ( J)*XM(3,1,K)-F(J1)*XM(3.2.K) 

59 F(J3)=XM(4.7.K).XM(4.8.K)*B(89,N).XM(4.9.K)*B(90.N)*XM(4.10.K)*B(9 47 

ll.N)-F(J)*XM(4.1,K)-F(Jl)*XM(4.2.K>-F(J2)*XM(4*3.K) 
F(J4)=XM(5.7.K)-F(J)*XM(5.1.K)-F(J1)*XM(5.2.K)-F(J2)*XM(5.3.K)-F(J 47 
13) *XM (5.4.K) 

F(J5)=XM(6.7.K)-F(J)*XM(6.1,K)-F(J1)*XM(6.2.K)-F(J2)*XM(6,3.K) 

61 CONTINUE 
RETURN 
END 



47 


0009 


47 


0010 


47 


0011 


47 


0012 


47 


0013 


47 


0014 


47 


0015 


47 


0016 


47 


0017 


47 


0018 


47 


0019 


47 


0020 


47 


0021 


47 


0022 


47 


0023 


47 


0024 


47 


0025 


47 


0026 


47 


0027 


47 


0028 


47 


0029 


47 


0030 


47 


0031 


47 


0032 


47 


0033 


47 


0034 


47 


0035 


47 


0036 


47 


0037 


47 


0038 


47 


0039 


47 


0040 


47 


0041 


47 


0042 


47 


0043 


47 


0044 


47 


0045 


47 


0046 


47 


0047 
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SUBROUTINE FREGG 48 

COMPUTE THE DERIVATIVES OF THE DEPENDENT VARIABLES OF THE REGUL A- 48 
TORS OF THE GENERATORS OF THE MG SETS. 48 

COMPUTE THE AVERAGE THREE-PHASE POWERS AND THE PEAK REACTIVE POW- 48 
ERS PER PHASE OF THE GENERATORS OF THE MG SETS * AND THEIR CONTRI- 48 
BUT IONS TO THE BUS LOADS. ALSO* COMPUTE THE FIELD FORCING CURRENTS 48 
AND FIELD VOLTAGES OF THE GENERATORS OF THE MG SETS. 48 

COMMON A*B*B0*C*CD*D*EG*EP*F*G*GB*0*VV*W*X*XL*XM*Y*Z*L*LG1*LG2*LG3 48 
l*LPl *LP2*LP3* TITLE* HEAD 48 

DIMENSION A (80 *35) *B (99*35) *B0<8) *C(50) *CD<3*4) *D(120) *EG(50) *EP<548 
10) *F (316) *G(21*35) *GB (3*4*9) *0(316) *VV(21*9) *W(6*6*9) *XL(6*10*35) *48 
2XM <6* 10*9) *Y (316) *Z (6*6*35) *L (134) *LG1 (50) *LG2 (50) *LG3(50) *LP1 (50) 48 



3*LP2(50) *LP3(50) * TITLE (39) * HEAD (39) 48 

N1 =L < 1 ) ♦ 1 48 

N2=N1 ♦L ( 2 ) -1 48 

TO 100—* COMPUTATION OF AVERAGE THREE-PHASE POWERS AND OF PEAK 48 

REACTIVE POWERS PER PHASE. 48 

DO 100 I =N 1 * N2 48 

J=L ( I ♦SO ) ♦S 48 

J2=J^1 48 

J3= J2 ♦ 1 48 

K= I 48 

IF (A (69* I ) .LT .0.0) K=K-1 48 

B(31*I )=0.001*(B(74*K)*Y( J) ♦B(75*K)*Y(J2) ♦B(76*K)«Y(J3) ) 48 

B ( 32* I ) =1 .9245E-4*(B <78*K)*Y< J) ♦B (79*K) *Y ( J2) ♦B (77*K) *Y ( J3) ) 48 

B ( 61 * I ) -0 • 0 48 

B (62 * I ) =0 • 0 48 

B(61 *K)=B (61*K) ♦BOl * I) 48 

B(62*K)=B(62*K) ♦BO?* I) 48 

100 CONTINUE 48 

TO 200—* COMPUTE THE DERIVATIVES. 48 

DO 200 I =N1 * N2 48 

J=L ( I 4 50 ) ♦S 48 

J2=JM 48 

J3 = J2M 48 

J8=J*7 48 

J9= J8 ♦ 1 48 

J10=J9*1 48 

Jll-J10«l 48 

K=I 48 

IF (A (69* I ) .LT.0.0) K=K-1 48 

TO 120—* COMPUTE THE FIELD FORCING CURRENT AND THE FIELD VOLTAGE. 48 

B(41* I ) =2.0* (A <42* I) ♦A (58* I ) >*(B(5*I )*<A(31*I) ♦A <32* I ) ♦ 1.5* A <33* I ) 48 
1)«(Y( J)*B(49* I) *Y( J?)*B(53* I) ♦Y(J3)*B(51*I) )-B(74*K)*B(50*I)-B(75* 48 
2K)*B<54, I)-B(76*K)*R(52*I) ) / ( 3 . 0* A (58 * I ) *A ( 34 * I ) *R ( 5 * I ) ) 48 

B(42*I)=A(58*I)*(B(41*I)-Y(J43) )*Y(J8) 48 

120 IF(ABS(B(42*I) ) .GT.A(59*I)> B <42* I ) =SIGN < A <59* I ) *B <42* I ) ) 48 

F (J9) = (A(56* I)* (B(42*I )-A(66*I) ) - Y < J9 ) ) / A < 57 * I ) ♦ A < 67 * I ) 48 

F (J8)=(A(54*I)*(A(49*I)-Y(J10)-F (J9) ) — Y ( J 6 ) )/A(55*I) 48 

F(J10)=Y(J11) 48 

TO 180—, THREE-PHASE FULL WAVE RECTIFIER AND REACTIVE LOAD SHARE 48 

CONTROL. 48 

IF <B(61*K) .GT.1.0E-10) GO TO 150 48 

B77=ABS(B(77,K) ) 48 

B78=ABS(B(78*K) ) 48 

B79=ABS <B(79*K) ) 48 

GO TO 180 48 

150 XLS-B ( 3 1 *1 )/B(61 *K) 48 

B77=ABS(B(77*K) ♦A(50*I)*<Y( J3)-XLS*B(88*K) ) ) 48 



0000 
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0021 
0022 
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0024 

0025 

0026 

0027 

0028 

0029 
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0031 

0032 

0033 

0034 

0035 

0036 

0037 
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0039 

0040 
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0044 

0045 
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B78=ABS(B(78»K)»A(50fI)*(Y(J)-XLS*B(86*K))) 98 0059 

B79=ABS(B(79*K)'»A(50»I)*(Y(J2)-XLS*B<87»K) ) ) 98 0060 

180 B<90* I >=AMAX1 (B77.B78.B79) 98 0061 

200 F( J11) = (A (51 ,1) *B(90t I)-A<52.n*Y( Jll )-Y< J10) )/A(53» I) 98 0062 

RETURN 98 0063 

ENO 98 0069 
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SUBROUTINE FMECH 49 0000 

COMPUTE THE DERIVATIVES OF THE MECHANICAL SPEEDS OF THE SHAFTS OF 49 0001 
THE MG SETS AND OF THE INDUCTION MOTORS. 49 000? 

ALSO. COMPUTE THE DERIVATIVES OF THE ELECTRICAL ANGLES OF ALL RO- 49 0003 
TAT1NG MACHIVES OF THE POWER PLANT. 49 0004 

COMPUTE THE EM TORQUES OF ALL ROTATING MACHINES OF THE POWER PLANT 49 0005 
EXCEPT THOSE OF THE GENERATING UNITS. 49 0006 

COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1.LG2.LG3 49 0007 
1.LP1.LP2.LP3. TITLE. HEAD 49 0008 

DIMENSION A (80 .35) *R 199,35) ,B0<8) .C(50) .CD (3. 4) .D< 120 ) .EG ( 50 ) . EP (549 0009 
10 > »F( 316) .G (21,35) »GB (3.4,9) ,Q (316) ,VV (21 .9) ,W (6,6.9) ,XL (6, 10.35) .49 0010 
2XM (6,10.9) ,Y (316) ,Z(6,6,35) »L(134) »LG1 (50) »LG2 (50 ) ,LG3 (50 ) ,LP 1 (50)49 0011 
3.LP2(50) .LP3(50) .TITLE (39) ,HEAD(39) 49 0012 

1F(L(3).GT.0) CALL TORIM 49 0013 

NS=L(1)»L(2)»L(3) 49 0014 

DO 37 1=1, NS 49 0015 

L 1=L ( I *99) 49 0016 

J=L (1*50) 

J2-J * 1 
J3=J2* 1 

GO TO ( 35, 34. 36 ) »LI 
TO 108 — , SHAFTS OF MG SETS. 

TO 105—, COMPUTE THE TORQUES OF THE GENERATORS. 

34 J9=J*8 
J1 0= J*9 
J1 1=J*10 

B ( 33. 1)=(A(34,I)*(Y(J9.3)-B( 35,1) )*A( 35,1) *Y(J9.4) )*( 

1 Y ( J9) *B (50 , I ) ♦ Y ( J1 0 ) *B ( 54, I ) *Y ( J1 1 ) *B (52 , I ) ) ♦ A ( 36 , 1 ) * Y ( J9*5) • 

2 ( Y ( J9) *B ( 49, I ) ♦ Y ( J1 0 ) *B (53, I ) ♦ Y ( J1 1 ) *B (51 , 1 ) ) 

IF < A (33, 1 ) .LE.0.0) GO TO 105 

8(33,1) =8(33. I)-A(33.1)*(B(56, I)*(Y(J9)*Y< J9) »2.0*Y( J10)*Y( Jll) ) 
1*B(58,I)*(Y(J10)*Y(J10)*2.0*Y( J9) • Y ( J 1 1 ) ) ♦B(60,I)*(Y(J11> * Y ( J1 1 ) 

2‘2.0*Y< J9)*Y(J10) ) ) 

105 8 (33. I) =-0.737564* A (15. I) *8 (33,1) 

TO 107 — . COMPUTE THE TORQUES OF THE MOTORS. 



2 ( J3 > *B (21 , I > ) 

IF ( A (3, 1 ) ) 107,107,106 

106 B(3*I ) =B (3,1 )-A (3, I >*(B<26, I) *( Y( J)*Y ( J) *2 . 0*Y ( J3 ) *Y ( J2 ) ) *8(28, I ) * 
l (Y( J2)*Y( J2)*2.0*Y(J)*Y ( J3) ) ♦B(30,I)*(Y ( J3)*Y( J3) ♦2.0»Y< J)»Y( J2) ) ) 

107 B ( 3, I) =0.737564* A ( 15, I)*B(3,1> 

108 F(J,7)=32.174*(B(3,1)-B(33,I) )/A(26,I) 

F(J9,6)=B(5.I) 

35 F(J,6)=B(5,I) 

GO TO 37 

TO 39 — , SHAFTS OF INDUCTION MOTORS. 

TO 38—. COMPUTE THE EM TORQUES OF THE INDUCTION MOTORS. 

36 B(3, I )=A(4,I ) *Y ( J»3)*(Y ( J)*B(20, 1 ) »Y ( J2)*B(24, I ) ,Y ( J3)*B(22, I ) ) »A( 49 
14,I)*Y(J*4)*(Y(J)*B(19,1)*Y(J2)*B(23,1)*Y(J3)*B(21,1)) 

38 B ( 3, 1 ) =0 .737564* A (7.I)«B(3,1) 

39 F(J,6)=32.174*(B(3,I)-B(12,1) )/A(9,l) 

F ( J»5 ) =8 (5, I ) 

37 CONTINUE 
RETURN 
END 



49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 


0026 


49 


0027 


49 


0028 


49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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49 
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SUBROUTINE TORIM 50 0000 

COMPUTE THE MECHANICAL TORQUES OF THE INDUCTION MOTORS FROM GIVEN 50 0001 
SPEED/TORQUE TABLES BY LINEAR INTERPOLATION. 50 0002 

THE END VALUES OF TORQUE ARE USED WHEN THE SPEED FALLS OUTSIDE THE 50 0003 
RANGE OF A TABLE. AND A COMMENT IS WRITTEN IN TAPE 6. 50 0004 

COMMON A.B.BO.C.CD.D.EG.EP.F.G.GB.Q.VV.W.X.XL.XM.Y.Z.L.LG1 .LG2.LG3 50 0005 
1.LP1 .LP2.LP3. TITLE. HEAD 50 0006 

DIMENSION A (80.35) .8(99.35) .BO (8) . C < 50 > .CD (3. 4) .D ( 120 ) . EG ( 50 > . EP (550 0007 



10) • F < 31 6 ) *G(21 05) *GB (3*4*9) *0(316) 


* VV ( 2 1 


♦9>.W(6.6.9),XL(6,10.35). 


50 


0008 


2XM(6*10*9) *Y(316) *Z (6*6*35) *L ( 134) * 


LGI (50) .LG2(50).LG3(50) .LP1 (50)50 


0009 


3 *LP2 (5 0 ) *LP3 ( 50 ) * TITLE (39) * HEAD (39) 






50 


0010 


900 FORMAT (//35H ***SPEED OF INDUCTION 


MOTOR 


NUMBER ♦ 1 3f 34H IS LARGER T 


50 


0011 


1HAN VALUES IN TABLE**«/7H SPEED=.E12.5/15H TORQUE SET TO .E12.5//) 


50 


0012 


901 FORMAT (//35H ***SPEED OF INDUCTION 


MOTOR 


NUMBER. I3.35H IS SMALLER 


50 


0013 


1THAN VALUES IN TABLE«**/7H SPEED= .El 2.5/1 5H TORQUE SET TO .E12.S// 


50 


0014 


2) 






50 


0015 


N1=L( 1 ) *L (2) M 






50 


0016 


N2 = N1 ♦L ( 3 ) - 1 






50 


0017 


DO 100 I =N1 * N2 






50 


0018 


J = L ( I 4 50 ) *6 






50 


0019 


IF (Y( J) .LT.Adlf I) ) GO TO 90 






50 


0020 


NN= A ( 1 0 * I ) -1.0 






50 


0021 


DO 10 K = l ♦ NN 






50 


0022 


KK = 11*2*K 






50 


0023 


IF (Y( J) .LT.A(KKtl) ) GO TO 20 






50 


0024 


10 CONTINUE 






50 


0025 


B ( 1 2 * I ) = A ( KK ♦ 1 * I ) 






50 


0026 


N= I ♦ 1 — N 1 






50 


0027 


WRITE (6*900) N*Y (J) «B(12«I) 






50 


0028 


GO TO 100 






50 


0029 


20 KK = K*2 ♦ 9 






50 


0030 


B( 12. I) = A(KK*1 . I )-( ( (A (KK*1 . I)-A(KK*3, I) )/(A(KK, I )-A(KK»2. I) ) >* 


50 


0031 


1 ( A ( KK ♦ I ) - Y ( J ) ) ) 






50 


0032 


GO TO 100 






50 1 


D033 


90 B ( 1 2 * I ) = A ( 1 2 * I ) 






50 


0034 


N= I ♦ 1 — N 1 






50 


0035 


WRITE (6*901 )N*Y(J) * B(12*I) 






50 


0036 


100 CONTINUE 






50 


0037 


RETURN 






50 


0038 


END 






50 


0039 



